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PART 1 - BINPS 


PRCGRAM BINP 
IMPLICIT REAL#*E CA=K40~2) 


THIS PROGRAM CREATES AN INPUT FILE FOR THE MAIN FIRE CCCE € 
SO THAT THE PRCGRAM CAN 38E RUN IN CATCH MCTE. 
INITIALIZES VARIABLES FCR USE IN TRE COMPUTER FIRE CODE PACKAGE, 


CALLS INPUT2 TC INPLT DATA FRCM THE TERMINAL. 


AANDAAANAANM 


S$INCLLCE GS/DIMN.CMN 

S$INCLLUOE G9,-ICECMN 

$INCLLOE GY-BLEONG.CMN 
INTEGER CrRewes V 
PARAMETER (CPI=2.1415927CC0) 
PARAMETER (CIBATCH=C) 


CHARACTER FROSE*8C,ICHAR#4 
EQLIVALENCE CPRCSEC131)/ICKAR) 
INTEGER INPSIZ 
PARAMETER CINPSI2Z2=5380/4) 
INTEGER IDATCINPSIZ) 
EGLIVALENCE (2ZEVZZ2,/I0AT) 

C 

C OPEN OLTPUT ANC INPUT FILES 


C FOR LSE CN BARVARD VAX 117780 CALY 
C 
€88C wRITECE, 8888) 


8888 FOFMATC’ IS THERE AN ALREACY EXISTING CATA FILE WHICH YCU WISH’s/, 
1 ° TO MCDIFY? CY/N) "71) 


B89C REAC(S-ES92,ERR=888C) ICHAR 
8892 FORMATCA1) 
IF CICRAR .EQ. °N’) GOTC &950 


IF CICFAR «NEw °Y¥°) GCOTC 8880 
8894 wRITE(CE-88596) 


8896 FORMAT (° PLEASE ENTER THE NAME CF THE CATA FILE WHICH YOU WISk “°s/, 


tT TO) BOOLEY. DEFAULT IS: {SR CAT me “74s ) 
&898 READCS-&89S,ERR=8894) PROSEC(1:224) 


€899 FORMATCEAG) 


IFCPROSEC132) eFC. * “°) PRCSEC1324) = “SR.CAT 
OPEN CUNIT=33,-FILE=FROSE(1224) -STATUS="CLD”) 
GOTO 1C 


E9SC wRITECE,8952) 


&€952 FORMAT (€° FLEASE ENTER THE NAME CF THE CATA FILE YCL ARE “oss 
1 * ABCUTS TC CREATE °71) 

E954 READ CS-ES5SEFERR=EGS5C) PROSEC1224) 

EGSE FORMATCEAS) 
CPEN CLUNIT=19-FILE = PRCSE(1:224),/STATUS=°NEW") 


C GET THE CATA FROM THE INPUT FILE TCO SE EDITEO, 
2 


AAD 


AOAD 


10 00 15 I = 1/INPSTI2Z 
REAODC32) ICATCI) 
15 CONTINUE 


OUTPUT MESSAGE ABOUT INPUT ERRCRS TC THE EFFECT THAT 
INPLT ERRORS CAUSE ADOITIONAL READS TO BE EXECLTED. 


WRITE (CIWTTY-290) 


SELECT PHYSICS SUBROUTINES 
3C CALL SELSUE 


INPLT ROOM SETUP ANC GECMETRIES 
40 WRITE (IwWTTty,20C) 
READ CIRTTY-19C) ICHrAR 
IF CICRAR wEC. “°N% 2OR. ICHAR 
IF CICRAR .NE.w “Y%) GOTC 4C 
SC CALL INPUT? 


ste 


APY GOTC 6C 


RECAPITULATE INPUT FARAMETERS CN TRE TERMINAL SCREEN FCR 


VERIFICATICN, IF INTERACTIVE MCCE 


e AND. 


GECMETRIC CRANGES WERE MADE 


CIeEer IF ANSWER ABCVE hAS “Y*% AND INPUT3 bhAS CALLEC) 


6G IF CIBATCH .EQ. 0) THEN 
WRITE CIWTTY,/25C) 
CALL RECAP CIhTTY) 
IF CIASKC2(O) .NE. 0) GOTC 5 
ENCLIF 


oO 
oO 


NADNAADAANAAAAANANAAANAAGAAAAAAAN 


C 


70 IFACUT = 0 
IF CISATCH EC. 0) THEN 
&C& wRITE CINTTY-S$O02) 
READ CIRTTY-9CO) ICHAR 
IF CICHAR EC. °N% wOR. ICHA 
IF CICHAR .NE. “Y¥°) GCTC &08 
8C9 IFNOLT = 1 


Cc 


RESECS? “S77 ™50T0* E14 


ASK USER FCR OLTPUT INTERVAL CCNTRCL PARAMETERS, OF 


CEFAULT TO THE LISTEC VALUES 


&¢ WRITE CIWTTY4350) “TTY CUTPLT INTERVAL’, %20.C’ 


REAC CIRTTY-240-/ERR=80) TTY 
PRoest i NCUT «LE. €.00) TTYOU 
ay Ra 
IFNCLT = 1 
wRTTY = 1.044 
SAC IF 


CUT 


T = 20.0C 


9C WRITE CIWTTY-350) °CISK CUTPUT INTERVAL’, °10.C’ 


REAC CIRTTY-24C-ERR=90) OSKOU 
IF COSKCUT «LE. O.CC) CSKOUT 


i 


= 10.C0 


ASK USER FCR LCOP CONTRCL PARAMS, CR DEFAULT 


10C wRITE CIWTTY,350) “RUN LENGTH 
REAC CIRTTY-24C-ERR=10C) FINI 
IF CPINTSH SLE. 0.00) FINISH 


WRITE CIWOSK) TTYCLT/-OSKCUT/FINISH 


CC 9567 I=1/INPSIZ 

WRITECIWCSK) ICATCI) 
956? CONTINLE 

CLCSECIWCSK) 

STCP 


190 FOFMAT(A1) 


SH 


Sete ou 


= 50C.C0 


200 FORMAT(C/,*°$CHANGE FROM STANCARC GECMETRKIC AND PRYSICAL’, 


1 ° PARAMETERS? CY/N): °%) 
S 


21¢ 


~w — 


220 


ta % — 


Comeeue 
230 
240 


250 
26C 
27C 
280 
1 
290 


Otn & ta Th = 


300 
310 
320 
33¢ 
340 
350 
4 


COCE 


COPI 
RCO 
OBJE 
OBJE 
VENT 
CR W 


MANDAN AADAHAANA 


SINCLL 
SINCLL 
$INCLL 
C 


+ 


1C 


20 


FORMATC*OOC YOU WANT CUTPUT IN COLUMNAR SHCRT FCRM °%, 
“CREQUIRES LINE PRINTER) INSTEAD OF’s/, 
"$C(CEFAULT) TASULAR LONG FORM? (Y/N): 7%) 

FORMATC°CDC YOU WANT THE TERMINAL CUTPLT IN %, 
“GRAPHICAL FCRM INSTEAD CF COR IN’ o/, 

“$ADCITICN TC THE DEFAULT) TABULAR FCRM? °%, 
“CY/NDs *) 
FCRMAT(C/ +s “S$SUPPRESS HNCRM AND FNORM OLTPUT? CY/N): % ) 

FORMAT (/,°$SIS THIS BATCH MCOE? CY/N)s: 7%) 

FORMAT(CF12.4) 


FORMAT (C/rT6r/°RECAPITULATICON OF INPUT FOR THIS RUN: °¢/) 

FORMAT (/eT10/°GECMETRIC ANC PHYSICAL FARAMETERS:°,/) 

FORMAT (°% sewer ceencewenn “s/o* FILES IN USE: %) 

FORMATC“OTYPE IN COMMENT LINES FOR LABEL, ENOING WITH’, 
* AN EXTRA <RET>“) 

FORMAT(% "4 IN THE INPLT SEQUENCE TC FOLLCh, NOTE THAT’, 

AN INPLT ERROR‘/’ -- E.G. TYPING A LETTER WHERE A’, 

DIGIT 1S REQUIRED --°/"% CAUSES THE QUESTICN TC BE’, 

REASKEC.’/, 

TRE SYMBOL <RET> STANCS FOR CARRIAGE RETURNe CR%s 

NEWLINEs CR°/’ WHATEVER KEY ON THE TERMINAL IS USED’, 
“ TC ENTER: CATAL #7) 

FORMAT (°SFROGRAMMER=RUN NUMBER = “) 

FORMATC’ RUN “°s A80s/ 4% err eereesree ween’) 

FORMAT (A80) 

FORMAT(? *,A8C) 

FORMAT(A30) 

FORMATC*’CINPUT CESIRED °,A2C,% CIN F FCRMAT)- CR <RET> T0%s/, 
“S$DEFAULT TC ‘sAés’ SECONCS: °%) 


a e «8 Ss 


ENC 
SUEROUTINE COPINPCICOP) 
IMPLICIT REAL*8 CA~H-0-2) 


D BY MeSPIVAKOVSKYs, JUNE 19280. 


ES THE INPLT DATA FROM ANOTHER 
CUFe TOG-PL Ys 1) 
CT - GECMETRIC FROPERTIES CIF ‘ICOP = 2) 
CT = PRKYSICAL PROPERTIES CIF (ICGR = 5) 
CDF sECCP = 3) 
ALL CIF ICCP = 4). 


DE 9*sDOIMN.CMN 
Ce GrICéeCKN 
DE 9/BLCNG.CMN 


CCMMON /INPUTS/ KRs KOs KVe KWo 
ITEMC25)4 VAL1(025)4 VAL2(25)4 INCNT 


IF CITEMCINCNT) NE. 10C) RETURN 
GO TC (1072073040425) /ICCP 


WRITE CIWTTY,20C) SROOM ” 
READ CIRTTY-10C-ERR=10) KC 


ZLRZYCKR) = ZLRZYCKC) 
ZLRZXCKR)Y = ZLRZXCKC) 
ZHEZZCKR)Y = ZHRZZCKC) 


OBUSCKRD = C3ISCKC) 
ZKAZZCKR)Y = ZKAZZCKC) 
RETURN 


WRITE (CIWTTY-201) 


an 


201 FORMATC(X,°ENTER THE OBJECT AND ROOM NUMBER CF TKE CBJECT 
1 YOU WANT TO COPY FROM.”%) 

READ CIRTTY,-101,ERR=20) KC-KC1 

101 FORMAT(Z213) 
ZXCZZCKC/KRI=ZXCZZCKCAKC1) 
ZYCZZCKC/KRI=ZYCZZCKC/KC1) 
ZHCZZCKCeKR)=ZHOZZCKC/KC1) 
ZNCZZCKC/KR)=ZNCZZCKC,/KC1) 
ZRFZOCKC/KR)=ZRFEZCCKC/KC1) 
ZRFZICKC/KRY=FZRFEZICKC/KC1) 
ZRFZMCKCsKR)=LZREZMCKC/KC1) 
RETURN © 


25 WRITE (CIWTTY,-2C02) 

202 FORMAT(X,’ENTER THE OBJECT ANDO ROOM NUMBER CF THE CBJECT YCU 
1 WANT TC CCPY FROM.%) 
READ CIRTTY/-101-ERR=25) KC-/KC1 
STATECKOs/KR)=STATECKC,/KC1) 
FIRTYPCKC/KR) = FIRTYPCKC.KC1) 
XGAMMACKOs/KR)=XGAMMACKC/KC1) 
XGAMASCKOsKR)=XGAMAS CKC,KC1) 
ZICZZCKC/ KRY =HZICZZCKCAKC1) 
ZCCZZCKC/KR)=ZCCZZCKC KCI) 
VMCZZCKC/KR)Y=VMCZZ (KC, KC1) 
EBCKOsKR)=EBCKC,KC1) 
CHICKO/KRIFCHICKC,KC1) 
GFCKC KR) =CFCKC,KCH) 
CVAPCKCsKRI=RQCVAPCKC/KC1) 
ZMCZOCKC/KRI=ZMCZOCKC,KC1) 
ZKCIGCKC/KR)I=ZKCIGCKC,KC1) 
ZKCPYCKCs KR) =ZKCPYCKC,KC1) 
FCC2CKC/-KRIS=FCC2CKC,KC1) 
FCCCKOseKR)=FCOCKC,KC1) 
FS(KOs/KK) =FSCKC/KC1) 
FHcOCKC-KRI=FHOCCKC-KC1) 
AFIRECKCs KR) =AFIRECKC,KC1) 
TMFGZCKC/KR)=TMFGZCKC,KC1) 
RETURN 


30 WRITE CIWTTY-2CC) “VENT ° 
READ CIRTTY-10C-ERR2=30) KC 
ZBVZZ(KV) =ZBVZZ (KC) 
ZHVZZCKV) =ZKVZZCKC) 
ZHTZZCKVI=ZRTZZCKC) 
VLINKC1/KV) = VLINK(1,KC) 
VLINK Ce KV) VLINK(2,KC) 
RETURN 


4C WRITE CIWTTY-20C) “WALL ° 
REAC CIRTTY/-100/ERR=40) KC 
ZNWKZZC KW) =ZNWZZCKC) 
ZJIWZZCKWI=ZIWZZCKC) 
ZCWZZCKW)=ZCWZZCKC) 
VMWZZCKW)=VMWZZCKC) 

RETURN 


100 FORMAT (11) 

200 FORMAT (°$ENTER INOEX NUMBER OF “7 A6r*% TO BE CCFIEC: *) 
ENC . 
SUBRCUTINE CISPCIWHAT,*) 

IMFLICIT REAL*®8 CA-F-0-2) 


CALLED 8Y INPUT. 


AOOAOAAAAAAANAAARAAAAAAARARAAAARAAAM 


IN FILE 105281.FOR 


PRINTS TABLE OF INPUT VALUES ON THE TERMINAL 


IWFAT=12 VARIABLES INDEXED BY ROOM CKR)z 

IWhAT=Zs VARIABLES INDEXED BY CBJECT CKC/KR)» GEOMETRY? 
IWRAT=2; VARIABLES INOEXED BY VENT CKV), 

IWRAT=43 VARIABLES INDEXED BY WALL (CKW), 

TWRAT=52 VARIABLES NOT INDEXED BY ANYTEINGs 

IWRAT=€:3 VARIABLES INDEXED BY CBJECT CKO-KR)» PHYSICS. 


* ARGUMENT: SECONC RETURN ADDRESS ("RETURN 1%) == CISP RETURNS TO 
THIS LABEL IN INPUTZ IF NO CHANGES TO @E MADE TC THE TABLE. 


IFLAG 1S AN INTERNAL FLAG. IF 30, THE TABLE RELEVANT TC IWRAT IS 
DISPLAYEO FOR THE FIRST TIMES IF NC CHANGES ARE TO BE MADE 

CUSER PICKS ITEM # 0), WE USE ALTERNATE RETURN AND GO TC NEXT. 
TABLE CALL IN INPUT?. CTHERWISE, IFLAG IS SET TO 1 ANC RETURN 
TO INPUT3 CCES REGULAR READING TILL NULL ENTRY IS FCUNC, AND 
THEN TRE SAME CALL TO DISP (SAME IWHAT TABLE) 

IS MADE =~ CISP SEES IFLAG IS :NONZERC ANDO THEN COES A VERIFY 
ROLTINE. IF THEN ALL te sae ARE OKs IFLAG IS ZEROEC ANC WE 
ALTERNATE*RETURN AS ABOVEs ELSE» RETURA TO SAME REACING the 
ITEMCINCNT) IN INPUTS AS ABOVE. 


SINCLLUDE 9-DOIMN.CMN 
S$INCLUDE 9-8LOCNG.CMN 
S$INCLUDE 9/ICECMN 


C 


COMMON /INPUTS/ KR» KOs KVo KWe 
1 ITEM(25)4 VAL1(25)4 VAL2(25)4 INCNT 


DATA IFLAGs, IFIRST/ O, 0 / 


IF CIBATCH NE. 0) THEN 
IF CIFLAG «EC. 0) GOTO 100 
GCTO 130 

ENC IF 


WRITE CIWTTY,16C0) 
IF CIFIRST .EQe OP WRITE CIWTTY-17C) 
IFIRST = IFIRST+#1 

10 GO TO €2020-50-60-70/40) IWHAT 


20 WRITE CIWTTY-18C) KRe ZLRZXCKRIe ZLRZYCKR)» 
1 ZHRZZCKRI4 CBUSCKR)I, ZKAZZCKR) 
GOTO 8C 
30 WRITECIWTTY4190) KReKOsKOeZXOZZCKO/KR)sZVYOZZCKC/KR), 
1 ZROZZCKOs¢KR) -ANGHCKOsKR) s ANGVCKOsKR) -ZNOZZCKCAKR)» 
r4 ZRFZCCKOsKR) »-ZRFZICKC se KR) pe ZREZMCKCSKR) 
WRITE CIWTTY, 200) 
GCTtc 8¢€ 
4C CALL DSPASKCIFLAG) 
GOTO 8C 
50 WRITE CIwWTTY-21G) KV, ZEVZZCKV)», ZHVZZCKV)s4 ZHTIZZCKV), 
1 C(VLINKCI-KV) -I12=1-2) 
GOTC 8&C 
60 WRITE (CIwWTTY-22C0) KWer WLINKCYeKW) eo WLINKC2,KW), ZNWZ2CKW) 
1 ZIWZZCKW)- ZCOWZZCKW), VEWZZ¢CKW) 
GOTO 8C 
70 WRITE CIWTTY-23C) CPr 1.00/ZLAMDA, ZKACUTs ZOWZM, ZOWZNs 


6 


1 TCAZZ, ALPHA, COD 


80 IF (IFLAG .NE. C) GOTO 120 
90 WRITE CIWTTY,14C) 
100 INCNT&SC 
110 INCNT=IANCNT+1 
READ CIRTTY-15C,ERR=10) ITEMCINCNT) -VALICINCNT) -VAL2CINCNT) 
IF CITEMCINCNT) «NE. OF GOTC 110 
IF CINCAT .EQ. 1) RETURN 1 
INCNTSC 
IFLAG=IFLAG+1 
RETURN 
12C IF CIASKO2CC) .eNE. C) GOTC 90 
13C IFLAG=SC 
RETURN 1 


140 FORMAT (° TC CRANGE ITEMS, ENTER “ITEMsVALLEKRET>™ °%, 
1 “C€I13-F12.4)7 ENC WITH AN EXTRA <RET>3°) 

150 FORMAT (13,2¢€E15.4)) 

16C FORMAT(24C/)) 

17C FORMAT (€° IN EACH TABLE BELOW, IF ALL TRE VALUES ARE’, 

° SATISFACTCRY,s THEN AS “s/r’ INCICATED, ENTER ITEM Q°%, 

*“ ANO <RET>.°%s 

* IN ORCER TO CRKANGE ANY (CK ALL)°/*% OF THE VALUES,°, 

* TYPE IN THE APPROPRIATE ITEM NUMBER IN I3 FORMATS °,¢ 

4° THEN A CCMMAsy ANC THEN THE RELEVANT CATA VALUE’, 

= IN F12.4 CR E12.4,°/° FOLLOWES BY <RET>.°, 

* REPEAT FOR AS MANY ITEMS AS DESIRECs ENDING’/”% WITH’, 
° AN EXTRA <RET>. CEeGes "403 0e<RETIS 4 293.<RETOKRET>°//) 
180 FORMATC* RCCM NUMBER “oles ss’ ote 

1 747°C) CHANGE NOTHING (CONTINUE) ’- 

é —47T4°1) LENGTH ALCNG X37,-T35e1F E1124, 

3 4eT47°2) LENGTH ALONG Ys °sT35-1PE11.4- 

4 47%™47°3) HEIGHT: °-T3571PE11.4- 
5 17T47°4) & CF CBYECTS:°sT35e134%2 er 
é 
7 
& 
5 


MnO & nm — 


471747°S) AMBIENT TEMPERATURE: °4T35e1PE11.4- 

/T27°10C) CCPY ALL ASOVE DATA FROM ANOTHER ROOM’, 
4,°CNCTE THAT TYPING "10G" ALONE SUFFICESs THERE ARE NO‘%>s 
/,°RELEVANT CATA VALUES NEEDED) ‘%-/) 


190 FORMAT (€° ROOM NUMBER °,I2se%sr CBJECT NUMBER °, IZ, 

* (CBJ KO = %,I2-’) -. GEOMETRIC PROPERTIES: °%, 

471¥4°Q) CHANGE NCTHING (CONTINUE) ’, 

Lethe’) X=COORTINATES *s TSS 1 PEI1 04% 

1eT4e°2) Y=COORDINATE: °-T55,1PE11.4- 

4T4e°3) HEIGHT? °-T55-1PE11.4, 

47%4°4) ANGLE WITH HORIZONTAL CIN CEGREES):°/T55/1PE11.4¢ 

4eT4°S) IF SURFACE IS VERTICAL, ’- 

* ANGLE WITH XZ=-PLANE:°sT55-1PE11.4- 

47747°6) THICKNESS: °-TS5-1PE11.47 

4774°7) INITIAL BURNING RACTIUS:%-155,1PE11.6.4- 

47747°8) CB8JECT RACIUS:°-T55/1F E1124, 

4774¢°S) MAXIMUM BURNING RACTUS:°,T55-1PE11.4, 
47T327°1C) INSTEAC OF ITEMS &€ & Gr INPUT CIMENSICNS CF %, 

“RECTANGULAR OBJECT’, 

/eT7r°CITEM NCeor LENGTH AND WIDTH VALUES ALL ON CONE LINE: ” 

“E.Ges a htdieDeswh Std 6 

47T2r°1C0) COPY ALL ABCVE CATA FROM ANCTHER OBJECT’) 
20G FORMAT (/sT5-°UNLESS THERE IS 4 COMPELLING REASCN TC CKCOSE’, 
° CTHERWISE, THE LCCATICN’, 
4T5/°CF AN OBJECT IS THE PCINT AT THE GEOMETRICAL’, 
* CENTER CF THE PRINCIPAL’, 
/7T5/°EXPOSED SURFACE CF THE OBJECT.’s/) 


7 


DMNA WSN 2 MOON O UW WN) 


Wh a= 


210 FORMATC’ VENT NUMBER °sI2e/ 

414°C) CHANGE NOTHING (CONTINUE) °- 

4o747°1) WICTHs °sT30-7FE1144,- 

47%44°2) HEIGHT: °-T320-1PE11.4- 

47%40°3) TRANSOM DEPTH: °-T30-1P E1124, 

4e14/°4) SICE 1 IS IN RCOM3°%-T30-12, 

/et4e°S) SICE 2 IS IN RCOM2%s T2012, 

/eT27°100) COPY ALL ABCVE CATA FROM ANCTHER VENT%) 

220 FORMAT (% WALL NUMBER °,I2-° (SIDE 1 IK ROCM °,I2, 

e eV SIDES ZEINGC> 129% OVeT « 

47™47°C) CHANGE NOTHING (CONTINUE) ’, 

44T40°1) TRICKNESS3°sT30-1PE11 04s 

4e¥40°2) THERMAL CONOUCTIVITYs “s-T3C/1PE1104, 

4et¥4r°3) SPECIFIC HEAT: °-T30-1FE11.4, 

4oT4e°4) CENSITY: °-T30-1PE11.4, 

4sT27°1€0) COPY ALL ABCVE CATA FROM ANOTHER WALL’) 

230 FORMAT (€° NCN“INDEXED VARIABLES: ’%o/, 
47T47°0) CHANGE NOTHING (CONTINUE) ’, 
4eT4e°4) SPECIFIC HEAT CF AIR: “-TSC/1PE11.4% 
4ot4r°2) ABSORPTION COEFFICIENT OF FLAKE: °,150,1PE11.4, 
47T47°3) AMBIENT TEMP. OUTSIDE BUILCING:°,T50,1PE11.4, 

4e14¢°4) MAX. HEAT TRANSFER CCEFFICIEAT CWALLS)3°s7507-1PE11.4 

4eT40°5) MINe HEAT TRANSFER CCEFFICIENT CWALLS):°-15041PE11.4 
4e¥47°6) HEAT TRANSFER COEFFICIENT COBJECTS):’°-T50,1PE11.4 
4oT4e°7) PLUME ENTRAINMENT CCEFFICIENT: °-T5S0,1PE1164- 
4e147°8) VENT FLOW COEFFICIENT: °4T50,1PE11.47/) 


NOK UN & OF 1 = 


~SVOOU & (AN) = 


ON A iA Fis ns = 


ENC 
SUBROUTINE CSPASKCIFLAG) 
IMPLICIT REAL*& CA=Ks0-2) 


IN FILE I105281.FOR 
CALLED BY CISP 
MeRABUZZI- MAY 8&1. 


CALLED TC ASK CUESTIONS FOR DISP(6-%): PHYSICS. 


MAONAAN 


$INCLLCE G/DIMN.CMN 
SINCLLCE 9,8LONG.CMN 
$INCLUDE 9-/IC6.CMA 


C 
COMMCN /INFPUTS/ KRs KOvr KVe KW, 
1 ITEMC25) VALI1C25)- VALZC25), INCNT 
C 
WRITE CIWTTY-30) KR-KO-KO 
IF CIFLAG .NE. GC) GCTO 20 
C 


C ASK QUESTICNS CF USER CIASKC2, IN FILE We 
C ASKS IF OEJECT BURNING CQUERY 9)f IF NOT,» CUERY 1C ASKS IF FLAMMABLE) 
IFLG1 = 0 
IF CIASKO2(9) «EQ. C) THEN 
KTYP = Q 
STATECKOs/KR) = HEATNG 
IF CIASKC2¢(1C) «EC. OF IFLGI = IFLG1+1 
EQSE 
1C WRITE CIWTTY-40) 
READ CIRTTY/SC/ERR=10) KTYP 
DF) OKT Piswibibin, Dials ORien OKEYP. oGT., 32> GOTO" 10 
FIRTYPCKC/KR) = KTYP 
STATECKO/KR) = FLAME 
DF y CTY Ps te hitisy Spy LF UG = IF LCA A 
ENC IF 
C DO PROPER CISPLAY CF TABLE 
20 If CIFLG1. .NE. -€) 


AROAMDAGAVAAO 


a 


- 7 WRITE CIWTTY-6C0C) ZIOZZCKO-KRI-ZEOZZCKC/KR) -VMCZZCKO,KR), 
2 EB CKOs/KR) 
TF CIFLG1 LE. G) 
1 WRITE CIWTTYs7C) XGAMMACKO/KR) s-XGAMASCKO/KR)» 
2 CHICKOsKR) AGFCKOCZKR) -QVAPCKO-/KR)» 
a ZMOZOCKCs KR) -ZKOIGCKOsKR) -ZKOPYCKOZKR) -FCO2]CKOSKR), 
4 FCOCKOsKR) 4 FSCKCeKR) «+ FH2Z0CKO-KR) 
IF CKTYP «GT. @G) THEN 
WRITE CIWTTY-&0) PSIOCKO-KR) 
IF CKTYP .EQ. 1) THEN 
WRITE CIWTTY-9C) AFIRECKO-KR) 
ELSE IF CKTYP JEG. 3) THEN 
WRITE CIWTTY-10C) TMFGZCKO-KR) 


ENC IF 

ENC IF 

WRITE CIWTTY-11C) 

RETURN 
3C FORMAT (° RCOM NUMBER %, 12%, CBJECT NUMBER “Ie, 

1 PTRCES KO & “sel2e") - PHYSICAL PROPERTIES: “) 
40 FORMAT (°SINPUT TYPE OF FIRE C1=GRCWING, * 

1 “2=FCOLs 3=BURNER): °) 


50 FORMAT (11) 
60 FORMAT (T4-°1) THERMAL CONCUCTIVITY:°,150-1PE11.4, 
4o%47°2) SPECIFIC HEAT: °-TSC-1FE11.4- 
47%¥47°2) DENSITY: °s T50-1PE11.4,- 
42747°4) EMISSIVITY/ABSCRPTIVITY OF SURFACE: °-T50-1FE11.4) 
70 FORMAT (74-°5) AIR/FUEL MASS RATIO IN FREE BURN: °s T50-1PE11 2.4, 
4%¥47°6) STCICHIOMETRIC MASS RATIC: °s TSC-1PE11.4,7 
4eT4e°7) FRACTION CF HEAT CF COMBUSTICN RELEASED: °,T5C,1PE11.4, 
/7T4e°8) HEAT OF COMBUSTION: °43501°E11.4, 
4eT47°GF) HEAT CF VAPORIZATICN:°-T5C-1PE11.4- 
47T27°1C) INITIAL FUEL MASS3°-T50-1PE11.4, 
44737°11) TEMPERATURE CF IGNITICN: °4T56-1PE11.4- 
47T27°12) TEMPERATURE CF ONSET CF PYROLIZATICN: °-TSC-1PE11.4,- 
47T27°13) CC2 MASS EVOLVEO/FUEL MASS: ’sT50-1PE11.4- 
47737°14) CC MASS EVOLVEO/FUEL MASS:°-T50/1P211.4, 
47737°15) SMOKE MASS EVCLVEC/FUEL MASS3°-TSC/1TPE11 04+ 
4e737°1€) WATER MASS EVCOLVEC/FLEL MASS:°-T5C-1P E1124) 
80 FORMAT(T34°17) SEMIAPEX ANGLE CF FLAME CIN DEGREES) :°,-1T50,-1PE11.4) 
9C FORMAT(T3,°18) FIRE SPREAD PARAMETER: “4 T50-1PE11.4) 
100 FORMAT(1T34°19) THE GAS FLOW RATE CIN KG/SEC):%-750,1PE11.4) 
110 FORMAT(T2,°100) COPY ALL ABOVE CATA FRCM ANOTHER OBJECT’) 
ENC 
FUNCTICN IASKOZCICCCE) 
IMPLICIT REAL*& (A=-#,-0-2) 


(AlN = 


M2 OOO NI OO UI & WA nm 


CALLEO BY CEBUGs, INIT, INPUT3Z/CISP. 
IN FILE WO05281.FOR 


IF REPLY TC CUERY IS °N*” OR °<RET>’, FUNCTION RETURN OF ZERC; 
IF REPLY IS “Y¥°, FUNCTICN RETURN OF +1 . 


INCLUDE 9/ICE.CWA 
CHARACTER*1 ICKHAR 


IASKO2 = O 

1C GOTC (¢C-30-40-50,6C,-70,80-,90-100-110/120) ICOCE 
CTRESE 2 LINES ARE ICODE=O4 FRCM 105281 SUBRS) 
WRITE CIWTTY-15C) 
GOTO. 12C 

20 WRITE (CIWTTY-16C) 


AAaaannananr 


GOTO 130 
30 WRITE CIWTTY/17C) 
GOTO 130 
4O WRITE (IWTTY/18C) 
GOTO 13¢ 
50 WRITE (IWTTY/19C) 
GOTO 130 
60 WRITE CIWTTY,/ 260) 
GOTO 13¢ 
70 WRITE (IWTTY,210) 
GOTO 130 
80 WRITE (IWTTY/220) 
GOTO 13¢ 
90 WRITE (IWTTY,23C) 
GOTO 130 
100 WRITE CIWTTY,24C) “BURNING’ 
GOTO 13¢ 
110 WRITE (IWTTY/24C) “FLAMMABLE ’ 
GO TO 130 
120 WRITE CIWTTYs25C) 
GO TC 130 
130 READ CIRTTY,140) ICHAR 
IF CICHAR «EQe °N% «ORe ICHAR .EQ. * *) RETURN 
IF CICRAR .NE. “¥%) GOTO 10 
IASKO2 = IASKO2+1 
RETURN 
140 FORMATCA1) 
150 FORMAT(C’$OC YOU WANT TO CHANGE YOUR INPUT? (Y/N): °) 
160 FORMATC“’CDC YOU WANT "LEAVING SUBR" MESSAGES PRINTED °, 

1 “LPON EXIT’/°S$FRCM EACH PHYSICS SUBROUTINE? CY/N): °) 
170 FORMAT (/°$CO YOU WANT CUTPUT EACH ITERATION? CY/N)= *) 
180 FORMATC’OWCULD YOU LIKE A LIST CF VARIABLES IN THE SYSTEM’, 

1: /e* CIEs INPUT, NONZERC, & IN THE COMPUTATION MATRIX) %, 

//*SPRINTED WHENEVER THE VARIABLES ARE RESCALEC? (Y/N): %) 
19C FORMATC*°OOC YOU WANT A LIST OF VARIABLES ENTERING’, 


1 //°SOR LEAVING THE SYSTEM AT EVERY RESCALING? (Y/N)3 °%) 
200 FORMATC°CYCL ARE IN TROUBLE. ’/, 
1 “$wOLLD YOU LIKE TO TERMINATE THE RUN? CY/N)= %) 
210 FORMATC(C“’QWCULD YOU LIKE TO SEE A SUMMARY TABLE CF PHYSICAL’ s/s 
1 * VARTABLE VALUES AS COMPUTEC IN THIS ITERATICN?’, 
2 “$CY*N)2 °°) 


220 FORMATC’QWCULD YOU LIKE TO SEE A SUMMARY TABLE CF PHYSICAL’ oJ, 
1 “$VARIABLES AY THE BEGINNING CF THIS TIME STEP?’%s 
2 "CYSNI EF" 4) 
230 FORMATC*’$WCULD YOU LIKE TO CHANGE ANY CF YCUR CEBUGGER CPTIONS?°, 
1 ° Y/N): %) 
240 FORMATC°SIS THE OBJECT °»A94°? CY/N)D3 '%) 
25C FORMAT(/,°$CO YOU WANT TO USE THE CEBUGGER? CY/N)Ds °%) 
ENC 
SUBROUTINE INPLTS 
IMPLICIT REAL*& CA=h,0-2) 


CALLED BY INIT. 

IN FILE 105281.FOR 

CCCEO EY 0. KOSOWERs» MARCHs 1979. 
RECCDEC 8Y MeSPIVAKCVSKY, JUNE 1980. 


ALLCWS SELECTIVE INPUT» SELECTIVE CORRECTICAS, ETC. 


SINCLLOE 9/IC6.CMN 
SINCLLOE 9,-DIMN.CMN 
SINCLUCE 9,/BLONG.CMN 


10 


an 


C 
C 
C 


114 


COMMON /INPUTS/ KRs KCs KVe KWe 
| 


ITEMC25), VALIC25) VALZC25)- INCNT 


LOGICAL CIRCLE-/-XOUT/-YOUT/-VCLUT 
PARAMETER (PY = 3.141592700) 


KO = 0 
IBATCH = O 


THE NUMBER CF RCOMS IN THE RUN] 
WRITECIWTTY-112) NRCOMS 
FORMAT(X,°ENTER THE NUMBER CF KOCMS IN THE RUN. OEFAULT IS 
READCIRTTY-113-ERR=111) NR1 
FORMAT(I2) 
IF (NR1 .GT. O eANC. NR1LE. MAXRMS) NECOMS=NR1 
NWALLS = NRCOMS 
00 114 KW=1/NWALLS 

wLINK(1/KW) KW 

WLINK(2,KWwW) 0 
CONTINLE 


INPUT BY RCCM C(CBJECTS ARE NESTED) 


1C¢ 
20 


D0 450 KR=1,NRCCMS 
IF CIEATCH EC. C) THEN 
WRITE CIWTTY,-78C) 
WRITE (CIWTTY~770) 
REAC CIRTTY,760)I0UM 
ENC IF 
CALL CISP(1,*%8&0) 
INCNT=INCNT+1 
IF CITEMCINCAT) EQ. C) GC TC 10 
V1 = VALITCINCNT) 
GO TC (30-40/50-6C-70)-/ITEMCINCNT) 
CALL CCPINP(1) 
GOTO 2c 


C INPUT CIMEASIONS 


AAO an 


oO 


30 
40 
50 
é6C 


70 


ZLRZXCKR) v1 
€0 TC 20 
ZLRZYCKR) 
co Te 20 
ZHRZZ (KR) 
€C TC 20 
IvV1 = INTCV1) 
IF (IV1 .GT. MAXOBS .OR. IV1 .LT.~ C) TREN 
WRITE CIWTTY,79C) 
GoTtc 1C 
ENC IF 
CBJSCKR) = IVv1 
G0 TC (20 
ZKAZZ(KR) = V1 
CO TC 20 


v1 
v1 


INPLT EY OEJECTS IN THE ROOF. 


8c 


THE 


CO 44C KC = 1,08NS (KR) 


OBJECT IS ASSUMED TC BE CIRCULAR UNLESS THE USER 


SPECIFIES ITS SURFACE AREA BY GIVING RECTAACULAR 
DIMENSIONS 


90 


CIRCLE = ~TRUE. 


INPUT GECMETRIC PARAMETERS FOR CBJECT 


CALL DISP(2,*210) 
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*“sI2) 


100 INCNTSINCNT #1 
IF CITEMCINCNT) eEQe OF GO TO 90 
V4 2 VALICINCNT) 
GO TO [PAPE ARO 2 IEE A GOrRe De Rene Rey RD? \E Ay cone 


1 ITEMCINCNT) 

CALL COPINP(2) 
GOTC 4CC 

110 ZXCZZCKC/KR) = V1 
GO TO 100 

eG ZYCZZCKC/KR) = V1 
GO TO 100 

130 ZHCZZCKO/KR) = V1 
GO TO 100 

140 ANGHCKC/KR) = V1 
GO TO 100 

150 ANGVCKC/KR) = V1 
GO TO 100 

160 ZNOZZCKO-/KR) = V1 
GO TO 1C0 

170 ZRFZOCKO-KR) = V1 
GO TO 100 

180 ZREZMCKOsKR) = V1 
GO TO 100 

190 ZRFZICKC/KR) = V1 


C OBVECT IS CIRCULAR 
CIRCLE = .TRUEe 
GO TO 100 
200 V2 = VAL2CINCNT) 
ZRFZICKOs/KR) = SQRTCVI*V2/PT) 
ZREZMCKOSKR) = SQORTCCVIRV2FZNOZZCKCAKR) H200C HC VIFV2)) SPI) 
C CBYVECT IS RECTANGULAR 
CIRCLE = FALSE. 
XECGE = V1/2.00 
YECGE = V2/2.00 
GO TC 100 
210 IF (CIRCLE) THEN 
XEOGE = ZRFZICKO-KR) 
YECGE = ZRFZICKO-KR) - 
ENC IF 
XLOBNC = XEOGE 
XFIBNC = ZLRZXCKRI“XEDGE 
YLOBNC = YEDGE 
YRIBNC = ZLRZYCKR)“YEDGE 
VFIBNC = ZHRZZCKR) 
VLCBNC = C. 
C CHECK TO MAKE SURE THE OBJECT IS INSIOE TRE RCOM 
9O00C XCUT = ZXOZZCKC+KR) eLTeXLCBND cORe ZXCZZCKO*KR) oGTeXHIANO 
YCUT = ZYCZZCKC/KR) ol Te YLOBNC eORe ZYCZZ(KO/KR) oGTeYRIBNE 
VCUT = ZHCZZCKCAKR) eLTeVLCBNO eORe ZHCZZ( KOs KR) GT. VHIGNOD 
IF (CXCUT eCRe YOUT «ORe VCUT) THEN 
WRITE CIWTTY,/900) 
910C IFCXCUT) THEN 
WRITECIWTTY-910) “X*COORDINATE*’ »XLOBNOsXHIBNC 
REAC CIRTTY/-S$20/ERR=9100) ZXCZZCKC-KR) 
XOUT = ZXOZZCKCKR) oLTeXLOBNO eCRe ZXOZZCKOsKR) oGT.XHIBAD 
G0 TC 91CO 
ENO IF 
920C IF CYCUT) THEN 
WRITE CIWTTY/910) “Y“COCRDINATE’s YLCE8NO-YRIBAD 
REAC CIRTTY/+S20-ERR=9200) ZYOZZCKC/KR) 
YCUT = ZYOZZCKC/KR) eL Te YLOBNO oCRe ZYOZZC(KC/KR) «GT. YHIBND 
GO TCO 9200 
END IF 


AMAA ANQAAAAAANAAIAAAAANAANANANAN 
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C 930C “IF CVGUT) THEN 
C WRITE CIWTTY/-910) “HEIGHT’sVLCBNC/VRIBNC 
C REAC CIRTTY«¢920-ERR29300) ZHOZZCKO,KR) 
C VOUT = ZHOZZC(KO-KR) aLTeVLOBNO .ORe. ZHOZZ(KO/KR) .GT.VRKIBND 
C GO TC 9200 
C ENO IF 
C GO TC 90C0 
C EAO IF 
C INPUT PHYSICAL PARAMETERS FCR CBJECT 
CALL DISPCE-*430) 
220 INCAT=INCNT*1 
IF CITEMCINCNT) -EQ. 0) GO TO 210 
V1 = VALICIACNT) 


23C GO TC €24042507260-270/280-290,300, 
1 310-320733073407250-360,370380, 
2 390740074107/420),1ITEMCINCNT) 

CALL CCPINP(5) 
GOTC 220 

24C ZJCZZCKC/KR) = V1 
GO TO 220 

25 ZCCZZCKC/KR) = V1 
GO TO ¢20 

26C VMCZZC(KCs/KR) = V1 
GO TC 220 

270 EBCKO/KR) = V1 
GO TO 220 

280 XGAMMACKOs/KR) = VI 
G60 TC 220 

29C XGAMASCKO,/KR) = V1 
GO TO 220 

300 CHICKO-KR) = VI 
GO TC 220 

310 GFCKOsKR) = V1 
GO TO 220 

320 QVAFCKC/KR) = V1 
GO TO 220 

336 ZMCZCCKC/KR) = V1 
GO TO 220 

34C ZKCIGCKO-KR) = V1 
GOoT0 4220 

350 ZKCPYCKO/KR) = V1 
GO TC 220 

360 FCCcCKC,/KR) = V1 
GO TC 220 

376 ~FCCCKO/KR) = V1 
GO TO 220 

380 FS(KO,KR) = V1 
GO TC 220 

390 FHECCKCs/KR) = V1 
GO TO 220 

400 PSICCKC,/KR) = V1 
GOTC 22C 

410 AFIRECKO-KR) = V1 
GOTC 22C 

420 TMFGZCKO-/KR) = V1 
GO TC 220 

430 BETACKC/KR) = SCRICZGCZZCKCAKRI/SPIV/ZICZZCKC-KR) 


ZGCZZCKG/KR) = ZJOZZCKC-KR) / CVMOZZCKC KR) *&ZCCZZCKCAKR) ) 
440 CONTINUE 
450 COKTINLE 
C 
C 
C NOW INPUT VENT PARAMETERS, 
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aan 


aan 


460 WRITE (CIWTTY,80C) 

READ CIRTTY+76C,ERR2460) NVENTS 

IF (NVEATS oh To 0 «CRe NVENTS «GT. MAXVTS) THEN 
WRITE CIWTTY+790) 
¢c TC 46C 

ELSE IF CNVENTS EC. O) THEN 
NVENTS = 1 

ENC IF 


CO 550 KV#1/NVENTS 
470 CALL OTSP(3,*%550) 
480 INCNT#INCNT+1 
IF CITEMCINCNT) «EQ. C) GO TC 470 
V1 = VALICINCNT) 
IV1 = INTCV14) 
490 GO TC (€500451C/52C/530-540)/ITEMCINCAT) 
CALL COPINPC3) 


GOTO 480 

500 ZBVZZCKV) = V1 
GO Tc 48C 

$10 ZHVZZCKV) = V1 
GO TC 48C 

520 ZHTZZ2¢KV) = V1 
€O TC 48C 

5$3C VLINK(1/KV) = IV1 
GC TC 48C 

540 VLINKC2,KV) = IV1 
CO TC 48C 


55C CONTINLE 


DATA FCR WALLS. 
CO 640 KW = T/NWALLS 
560 CALL CISP(4,%630) 
570 INCNTSINCNT#1 
IF CITEMCINCNT) 2EQ. C) GO TC 560 
V1 = VALICINCNT) 
580 GO TC (5907600610620) -ITEMCINCNT) 
CALL COPINPC4) 
GCTO 570 
590 ZNWZZ(KW) = V1 
GO Tc S7C 
60C ZJWZZCKW) = VI 
GOaTC S76 
610 ZCwZZ2¢(KW) = VI 
GO°TG 576 
620 VMWZZCKW) = V1 
GO TC 57C 
630 ZGW22 (KW) 
64C CONTINLE 


LUWZZ(KW) / CVMWZZCKW)®ZCWZZOKW)) 


INPUT CF TRINGS THAT AREN’T SUBSCRIPTEDO. 
650 CALL DISP(5,*750) 
€6C INCNT=INCNT#1 

IF CITEMCINCNT) ECG. OF GO TO 650 

V1 = VAL1CINCNT) 

GO TO €67046807€904700-47104720,730,740), ITEMCINCNT) 
é7C Cp = v1 

GO TO €€0 
68C ZLAMDA = 1.C00/V1 

GO TC é€éC¢ 
690 ZKAOUT = V1 
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DOOADANQANAAN 


GO TC €€0 
70C 2ZOwWZM = V1 
GO TO 660 
710 ZOwZN = V1 
GO Tc 660 
72C 20422 = V1 
GO TO €60 
73C ALFHA = V1 
GO TO €60 
74C CO = V1 
GO TC €60 
75C VMAOCUT = 353.1CC / ZKAOLT 
RETURN 


760 FORMAT (11) 
776 FORMAT (°O HIT <RET> TO CONTINLE.”) 
780 FORMAT (/sT4e°WhHEN ENTERING THE ROCM GECMETRY BELOWs °%- 
“NOTE THAT THE CARTESIAN COORCINATE’/, 
* SYSTEM WE USE IS: FACING TKE FRONT CF THE °%, 
“BUILCING, THE CRIGIN IS AT THE BCTTCM’/, 
OF THE GROUND FLOOR, EXTREME LEFT-FAND SIDE,’ 
FRONT. FOR A SINGLE RCOM WITH A’%/, 
SINGLE COOR, “THE FRONT™ IS DEFINED AS THE WALL’, 
WITH THE DOCR IN IT. IF THERE’/” IS MCRE THAN’, 
ONE COORs THE CEFINITION IS UP TO THE USER.’S/, 
T4,°THE Xr Yrs AND Z—- CCORCINATES GIVE CISTANCES’, 
* TO THE RIGHT» REAR» ANC TOP’/* CF TKE RCOM,’” 
* THUS CONSTITUTING A STANCARC RIGHT-HANDED’, 

* COCRCINATE SYSTEM. %) 
79G FCRMAT (€° KUMBER TOC LARGE GR NEGATIVE’) 
80C FORMAT (24(/),°SODESIREO NUMBER CF VENTS “%, 

1 “COEFALLT = 14 MAX = 5): °%) 
810 FORMATC” THE OBVECT IS NOW POSITIONEC CUTSICE CF THE RCCM.%) 
820 FORMATC” ENTER A NEW “shy” FOR THE CB8JECT IN %ose 

1 “€THE RANGE C°rTPE1V4.7 oo “or TPE14Ge 7°) CE FORMAT): %) 
83C FORMAT(CE14.7) 

ENC 

SUBRCUTINE RECAPCICEVIC) 

IMPLICIT REAL*& (CA-K,0-2Z) 


2 ® e » 


Wn =] OO NO UW SiN) = 


CALLED BY INIT. IN FILE 105281.FOR. 
CODEC 8Y JCSH GAHM, FES. 1981. 
MOCIFIED BY MATT RABUZZI-, MAR. 1981. 


THIS SLBROLTINE OUTFUTS A RECAPITULATICN OF THE INPUT CATA TO 
OEVICE IDEVIC. IF ICEVIC = IwTTYs CUTPLT IS BROKEN UP INTC TABLES 
TO FIT ON THE TERMINAL SCREEN. 


SINCLLOE G9e/-DIMN.CMN 
fINCLUCE 9-/B8LCNG.CMN 
SINCLLOE G-ICE.CMN 


C 


C 
C 
C 


CHARACTER*1 IDUM 
OUTPUT PARAMETERS BY RCCMS 


CO 10 KR = 1/NRCOMS 
WRITE CICEVIC,60) KR-ZLRZXCKR) -ZLRZVCKR) -ZHRZZCKR) -ZKAZZCKR) 
IF CICEVIC EC. IWTTY) THEN 
WRITE (CIWTTY,-4C) 
REAC CIRTTY-50) IDUM 
ENO IF 
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C OUTPUT BY CBJECTS WITHIN THAT ROOM 


C 


oan 


aan 


naan 


CO 1C KO#1/0B8USCKR) 
WRITE CIDEVIC+7C) KC rKCeZXCZZCKOAKRD ¢-ZYCZZCKOsKR) -ZHOZZ CKOsZKR) 


10 ANGHCKGs KR) ZANGVCKC KR) 

2 ZNOZZCKO/KR) -VMCZZCKC KR)» 

| ZMOZCCKOsKRI» ZREZOCKO*+KRI + ZRFZMCKC KR), 

4 ZRFZICKC/KR) » 

5 ZCOZZ CKO + KR) »pZJOCZZ CKO KR) -EBC KOs KR) -CHICKOZKR) 


WRITE CIOEVIC/8C) QFCKC/KR)/-QVAPCKC,KR), 


1 ZKOPYCKO KR)» ZKOCIGKCKOsKR) +» XGAMMACKC KR)» 

é XGAMASCKO/KR)» 

3 FCO2CKOeKR) sc FCOCKCoKR) FS CKO KR) sFHOCCKC KR)» 
4 AFIRECKCs/KR) 


IF CPIRTYPCKOSKR) «EQ. 3) WRITE CICEVIC,90) TMFGZCKCAKR) 
IF CIDEVIC .EQe IWTTY) THEN 
WRITE CIWTTY,40) 
READ CIRTTY/5C) ICUM 
ENC IF 
10 CONTINUE 


OUTPUT BY VENTS 


DO 20 KV=1,/NVENTS 
20 WRITE (CICEVIC,100) KV/ZBVZZCKV) -ZHVZZCKV) »ZHTZZ (KV) 
IF CIOEVIC .EG. IWTTY) THEN 
WRITE CIWTTY,40) 
READ CIRTTY/5C) ICUM 
ENC IF 


OUTPUT BY WALLS 


00 3C KW = 147 NWALLS 
30 wRITE CIOEVIC+110) KWeZNWZZCKW) + VMWZZCKW) pZCWZZ CKW) 2 JWZ22 CK WD 


OUTPUT PARAMETERS WRKICH ARE NOT INCEXEDO 


WRITE CIDEVIC,120) CP-1.00/ZLAMDA/ZOAZZ-ALPHA,ZOWZMs/ZOWZNA-CO 
RETURN 


40 FORMAT (C°OTYPE <RET> TO CONTINUE’) 

5C FORMAT(A1) 

60 FORMAT (T34°ROCM NUMBER’ sles’: ’ ole 

1 T7e°DIMENSICNS( XYZ) = Coo SCF12 04) 0°) ole 
2 T7/° AMBIENT TEMPERATURE=°,3XeFE.1) 

7C FORMAT (T5/°OBJECT NUMBER’ »I24° CICE% vl2r’) 3% ole 
T7e°COCROINATESC(X+Y,2Z) = C97 3CF 1204) 7°) oot 
T7e°ANGLE WITH HORIZONTAL#=° + 2XoFb6eds 
T4C,°ANGLE WITH XZ“PLANE=% L10XeFbecrle 
T7e°THICKNESS=° sp 13Xr FQ eae TAO er “CENSITY2 “sp 22XrFbecrls 

T7e°INITIAL MASS2°s TOXsFI 4 TAO, ° INITIAL RADIUS2° op T4Xr F994 ole 

T7o "MAXIMUM RACIUS# “s 8XrFS5 oh4eT40r OBJECT RADILSE° or 15 Xr FI ed oly, 

T7e SPECIFIC HEATH 8&XeF be Oe T40re° THERMAL CONOLCTIVITY=°%, 
VOXeF7 obo l oT 7 “EMISSIVITY=° 6 14Xr7F5.22 
T4C,°CHICFRACTICN CF HEAT RELEASED) =°,-F5.2) 

8C FORMAT (T7/°HEAT CF COMBUSTION=°42X41PE10.2, 
T4C/°HEAT CF VAPORIZATICN=’% cEX-1PET10.3 4/417, 

"PYROLIZATICN TEMP=%,S5X,OPFE Ts T40-°IGNITICN TEMP="415XsFbeler/ es 
T7/°AIR/FUEL MASS RATIC=°* 4X7 F6.2,7 
T4Cre°STOCICHIOMETRIC MASS RATIO#° + 4X rF6.2e/7 
T7/°FCC2(CO2 MASS/FUEL MASS)=°s F6.34T4Ce°FCCCCC MASS’, 
"/FUEL MASS) =° sXe F Ee 3r/ oT? “FE CSMCKE MASS/FUEL MASS) =°%, 


OMNI nUW LS inv = 


Am fish — 
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7 F6ezeT4Ce°FR2Z0CH20 MASS/FUEL MASS) 2° s+ 6XeF6e3r/ 4 T7e 

g “ACFIRE SPREAD PARAMETER) =", F6.4) 
90 FORMAT (T74°GAS FLOW RATE CF TRE GAS BURNER CIN KG/SEC) = %, 

1 F6.3) 
100 FORMAT (T3-°VENT NUMBER’ sIl2e%s% oly 

1 T7/°CWICTHs HEIGHT, CEFTH) = (€°,3¢€F12.4)-°)%) 
110 FORMAT (T3/°WALL NUMBER’ sles’ oso Tle °TKHICKNESS=°79X4F9 24,740, 
“DENSITY="s22XrF6ecr/oT7r°SPECIFIC HEAT=°&X-FE.0, 
T4C/°THERMAL CONCUCTIVITY=°-1C0X,F7.4) 
120 FORMAT (T3-°PHYSICAL CONSTANTS: “s/eT7/°SPECIFIC HEAT OF AIR=°%,X, 
F6.0-T4C,-°ABSORPTICN CCEFF CF FLAME="sSXrF5e2r/e 
T5-°FOR AIR: “s/s T7e°HEAT TRANSFER CCEFFH=°s 4X,FE.2-T40, 
"PLUME ENTRAINMENT COEFFHR%s 7XeF5e2e/e 
T5/°FOR LAYER GASES: °/sT77°MAX. HEAT TRANSFER CCEFF=",F6.2 
T4C/°MIN. HEAT TRANSFER COEFFH"s 6XeFSacsrls 
T5/°FOR VENTS2 °s/-T7e°FLOW CCEFFICIENT=°-8X,F5.2e//) 


~N — 


nN & wn 


ENC 
SUBROUTINE SELSUB 
IMPLICIT REAL*E CA-F+0-2) 


eee ree TOS2s1sFOR. 

COOED BY J. GAKRM, FEBRUARY 1981. 
MOCIFIEC BY M.RABUZZI-, 3710-81. 
CALLED BY INIT 


ALLCWS THE USER TO SELECT wRICH VERSION CF EACRK PHYSICS SUBROUTINE 
HE WISKES TC USE. 


(2/20/81) AT PRESENT, TRE CALY SUBROUTINES WHICH ARE AVAILABLE IN PULT 
VERSTONS ARE THFO AND ABSRB. 


DAOAAMAANAAAQAIDNANAN 


S$INCLLOE 9,/DIMN.CMN 
$INCLLCE 9,/BLCNG.CMN 
fINCLLCE 9/ICE.CWN 
C 

CHARACTER*1 ICHAR 


C 
C ASK USER QLESTICNS 
C 
10 WRITE (IWTTY,50) 
REACG CIRTTY-60) ICHAR 
IF CICRFAR .EQ. °N” OR. ICHAR wEC. * *) GO TO 4C 
IF (ICFAR .NE~w “Y’) GO TO 10 


INPUT KCN“CEFALLT VERSICN NUMBERS 


aan 


2C WRITE (IWTTY-80) “TMPO %4°(C1 CR 02)%r°TMPCO2’ 
READ CIRTTY,-70-ERR=20) VERSUN(1) 
IF CVERSUN(1) .LE. C) THEN 
VERSLN(1)=2 
ELSE IF (VERSUN(1) .GT. 2) THEN 
GOTO 20 
ENC IF 
30 WRITE (IwTTY,/8C) °AESR3B°4 "(14 24 OR 20%, ABSRBC’ 
REAC CIRTTY/70-ERR=20) VERSUNC2) 
IF (VERSUNC2) .LE. C) THEN 
VERSUNC2)=2 
ELSE IF CVERSUNC2) .GT. 3) THEN 
GOTO 30 
ENC IF 
C 
C LIST SUBROUTINES IN USE ON CISK FILE 
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40 RETURN 


50 FORMAT (/+/°$CHANGE FROM STANOARO SET OF PHYSICS °%, 


1 


“SLBROUTINES? CY/ND: *%) 


6C FORMAT(A1) 

70 FORMAT(I2) 

80 FORMATC’OWKICH VERSION CF °+A6-% DC YOL WANT °,A15,/% 
4 


“$DEFAULT IS “vhs? °%) 


90 FORMAT (°OPHYSICS SUBROUTINES IN USE CCNLY FOR’, 


4 


* SUBROUTINES WITH MULTIPLE VERSIONS): °) 


100 FORMAT (° “%sAb6r%s VERSICN ‘rI3) 


c 


ENC 


BLCCK CATA SR 
IMFLICIT INTEGER (A=-2) 


C THIS DATA ELCCK INITIALIZES THE VARIABLES IN THE INTERFACE 
C COMPON BLOCKS. 


C 


$INCLLUOE G/DIMN.CMN 

$INCLUCE 9,/BLCONGeCMN 

INTEGER RMSM1- SICEM2, VSDSM2 

PARAMETER (RMSM1 = MAXRMS = 14 SIOEM2 & 2eMAXWLS = 2, 


41 


4 
Z 
C 


VSCSMZ = 2AMAXVTS = 2) 


INTEGER OBUSMO/CBISM1,085SM2 
PARAMETER (CBJS¥Q = MAXCBS*MAXERMS, 


OBJSR1 = CBJISMO = 1, 
CBUSM2 = GBJSMO = 2) 


C VARIABLES IN CCMMON /BLENG/: 


1 


CATA 


DATA 
DATA 
DATA 
DATA 


NRCOMSsNWALLSsNVENTS /3%4/4 OBUS /2eRMSM14C/, 

WLINK /1/0/SICDEM2*O/4 VLINK /1/0-VSD0SM2*0/ 

ZKACUTsVMACUT /4300.0071.17700/ 

CF/10C4.0C0/ 

VERSUN /2e2321/ 
STATE/FLAMEs/CBUSMIRHEATNG/ s ZXO0ZZ/-8400,2.-0800-CBUSM2%C .00/e. 


TZYCZZ/ZR26E1BOCLOBUSM2eC.OC/ + ZHCZZ/ 6100, 86400, OBUSM2%.6100/, 


MOmn~N Oa uw & tw nm 


Aw & iw 


CATA 


ZACZZ/OBJSMO%L1D0/4 ZICZZ/CBISMOXC.05400/, 
ZGCZZ/CBISMORS.92D97/, ZCCZZ/CBISHC*1900.00/, 
VMCZZ/OBUSMCRGELODC/, EB/CBISMO*.SED0/, CHI/OBUSMC%.6500/, 
Z¥CZO/E.85Z00,CBISM1IR1.09E300/, ZRFZO0/08JSMO*.C37CC/, 
ZREZM/ e967 7OCsCEISMIReGESTOO/» QF/CBISMOK2E.7CE/, 
QVAP/CBISMC#2.C540E/ + 2ZOAZZ/10.COC/» ALPHA/O.100/, 
ZTIG/CeDOs-CBISM1IR—1.00/+, ZKOTG/727.D0-0CBUSMIx740.0C/, 
ZKCPY/CBISMC*ECOLDC/ + XGAMMA/OBJSHC414.4506C/ 
XGAMAS/OBJSMO*S.85CO/, 2ZRFZT/.859ECO-CBISM1%.34390C/, 
FCC2/CBUSMC#1.650400/4 FCO/CBISKC*.C13200/, 
FS/OBUSMO*%.24100/4 FH2C/OBUSMC%.713500/~, ZKFZZ/126C.0C/> 
ZLAMDA/.6452CO/s TMFGZ/OBJSMO%.O1CC//-LUFZZ/1.5500/~ 
FIRTYP/GROWNGsCBJSM1*C/s ANGV/CBJSMO*C.00/, 
ANGH/CBJSMC*C.CO/, AFIRE/CBISMC*.CIO9CO/, 
PSIO/CBISKC*3C.00/+ TPSIO/CBUSMO*C.00/ 

ZRFZZF/Z e702 eC BISMI*C CDOs se TMOZZP/OBISMORC.O0/, 
ZEFZZP/OBUSMO*C.DO/+ ZMOZZP/6 685 20CrOBUSM181.0S56300/, 
ZKCZZP/OBJSMC*200.00/ 

ZLRZY/MAXRMS*3.6576CO/e ZLRZX/MAXEMS#2.43E400/, 
ZERZZ/MAXRRSH26438400C/ 4 ZKAZZ/MAXEMS*3CO.CC/s 
VMAZZ/MAXRMS#1.17700/4 FIROOM/.TRLE»RMSMIXLFALSE./ 
ZEVZZ/MAXVTS*e762000/4 ZHVZZ/MAXVTIS*2.032CC0/, 
ZRTZZ/MAXVTS&e4CE4CO/, CO/.68CC/ 
ZNWZZ/MAXWLS*.0254C0/ 4 LUWZZ/MAXWLS*.1340C/, 
ZGWZZ/MAXWLS*1 657709744 LZOWZZ/MAXWLS*#1062.00/, 
VMWZZ/MAXWLES®ECOLOC/» ZOWZK/5C.CO/>e ZCWZN/S.OC/ 
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SUBROUTINE RECAPCIDEVIC) 
IMPLICIT REAL*& CA=H,/0-2) 


COCEC BY JCSK GAHM, FEB. 1981. 
MOCIFIEC BY MATT RABUZZI-, MAR. 1981. 


THIS SLBROLTINE OUTPUTS A RECAPITULATION OF THE INPUT CATA TO 
DEVICE ICEVIC. IF IDEVIC = IwTTY,s OUTPUT IS BROKEN UP INTC TABLES 
TO FIT ON THE TERMINAL SCREEN. 


MAAN AAAY 


SINCLLOE 9/DIMN.CMN 
$INCLUDE 9,/8LONG.CMN 
SINCLLDE 9/IC6eCMN 
C 

CHARACTER*1 IDUM 


OUTPUT PARAMETERS 8Y RCOMS 


Co i a Ot on 


CO.10 KR = 1/NRCOMS 
WRITE CICEVIC+60) KRe»ZLRZXCKR)I-ZLRZYCKR) »-ZHRZZ (KR) pAZKAZZCKR)D 
IF CICEVIC .EC. IWTTY) THEN 
WRITE CIWTTY,»40) 
REAC CIRTTYs50) IDUM 
ENC IF 


OUTPUT BY CBJECTS WITHIN THAT ROOM 


aa 


CO 1C KO=1-0BJNSCKR) 
WRITE CICEVICs7C) KOs KC o LXCZZCKOsKR Ds 2YOZZCKOsKR) s2HOZZCKOPKR) 
17 ANGHCKCsKR) s ANGV CKO sKR) » 
7 ZNOZZCKOs4 KR)» VMOZZC KOs KR)» 
3 ZMOZCCKOsKRI 4 ZREZOCKO/KR) ss ZREZMCKC KR), 
4 ZRFZICKOsKR)» 
5 ZCOZZCKOsKRI »-ZJOZZ CKO KR) cEBCKOZKR) » CHI CKO KR) 
WRITE CIOEVIC,/8C) QFCKOsKRI/-CVAPCKCA/KR)» 
1 ZKOPYCKG/KR)» ZKCIGCKOsKR) + XGAMMACKC/KR)» 
2 XGAPMASCKCsKR), 
3 FCOZCKO/KR) ec FCOCKO/KR) sc FSCKO-KR) -FHOECCKCsKR)» 
4 AFIRECKCs/KR) 
IF CFIRTYPCKO-KR) EC. 3) WRITE CICEVIC-90) TMFGZCKC,/KR) 
IF CIDEVIC .EQ. IWTTY) THEN 
WRITE CIWTTY+40) 
READ CIRTTY,5C) ICUM 
ENC IF 
10 COATINLE 


OUTPUT BY VENTS 


aa 


DO 20 KV=1/NVENTS 
20 WRITE CIDEVIC/100) KV/ZBVZZCKV) »ZHVZZ(KV) pZHTZ2 (KV) 
IF CIDEVIC .EQe. IWTTY) THEN 
WRITE CIWTTY,+40) 
READ CIRTTY/5C0) ICUM 
ENC IF 


OUTPUT BY WALLS 


Aa 


DO 30 KW = 14 NWALLS 
30 WRITE CICEVIC,110) KWeZNWZZCKW) se VMWZZCKW) oe 2CW22 (KW) ZIWZZ2 (KW) 


OUTPUT PARAMETERS WHICH ARE NCT INCEXEC 


aan 


20 


an 


DOAADAARAAANMANAANAAAN 


WRITE CIDEVIC,120) CPe1.DO0/ZLAMDAsSZCAZZ-ALPHAsSIZCWZM,ZOWZN-COD 
RETURN 


40 FORMAT C°OTYPE <RET> TO CONTINUE’) 

5C FORMATCA1) 

60 FORMAT (T3-°ROOM NUMBER’ I2e°3’%orle 

T7/°DIMENSIONS( XYZ) = C7 3CF1244) 0°) Cole 

T7/°AMBIENT TEMPERATURE=°,3X-FE.1) 

70 FORMAT (T5,/°OBJECT NUMBER’ sI2,% (I02°-I2,°) 2% rls 
T7/°COORDINATES(XsYr2Z) = C7 3CF12.4) 4°) So Ie 
T7/°ANGLE WITH HORIZONTAL=° + 2XrF6nce 
T4C,°ANGLE WITH XZ~PLANE=°,10XsF6ecsle ' 
T7e °THICKNESS=° 4 13X0F9 eb e T40e°CENSITY=%s 22XrFbecrl/ es 

T7,°INITIAL MASS2S°s10XsF 9 e4rT4Cr “INITIAL RADIUS=°s T4Xr F944 ol, 

T7 7° MAXIMUM RACIUS=°s 8XeFS e4eT40,°CBJECT RADILS=°s 1SXeF 9.4 o/s, 

T7/°SFECIFIC HEAT=°s8XeF6.0eT40,°THERMAL CONDUCTIVITY=%, 
1OXs FT e4e lo Tio “EMISSIVITY=° 5 14K F5 nce 
T4C/°CHICFRACTION CF HEAT RELESSED)=°,FS5.2) 

8C FORMAT (T7s/°HEAT CF COMBUSTION=°-2Xe1PE10.34 

1 T4C,°HEAT CF VAPORIZATION=%F 6Xe-1PE10.3¢/ 477s 


nN — 


WOON OA UPWD = 


Z°PYROLIZATICN TEMP=°s5Xs0PF6e1eT40e°IGNITICN TEMP=°,15X+F6e1r/ 4 
3 T7/°AIR/FUEL MASS RATIC#=°- 4X FE. 2, 
4 T4Cre°STCICHIOMETRIC MASS RATIO= °c &XsF6e2rle 
3 T7/°FCOZ(CO2 MASS/FUEL MASS)=°%,FO.2-T40,°FCC(CO MASS’, 
é "/FUEL MASS) =°s Xr FE cSel stir FSCSMCKE MASS/FUEL MASS)=%, 
is F6e3eT4C re °FRZ0CH2C MASS/FUEL MASS) =° sr 6X2 F6e3 rela Tle 
g “ACFIRE SPREAD PARAMETER) =°-F6.4) 
9C FORMAT (T7,°GAS FLOW RATE CF THE GAS BLRNER CIN KG/SEC) = “%, 


1 F6.3) 
100 FORMAT (T3-°VENT NUMBER’ sI2,%3'% os, 
1 T7e°CWICTHe HEIGHT» OEPTH) = (°,32¢(F12.4)7°)") 


110 FORMAT (T3,°WALL NUMSER ’ cs l2e so Jo TT or °TRICKNESS= SX FG 4 T 40, 
“DENSITY="r22XrF6ecelot?o “SPECIFIC HEAT=°, &X,FE.0,s 

c2 T4C,°TRERMAL CONCUCTIVITY="%710X7F7.4) 
120 FORMAT (T3-°PHYSICAL CONSTANTS: °sf/oT7r°SPECIFIC HEAT OF AIR="sX, 
F6.0-T40-°ABSORPTION CCEFF CF FLAME="s5XrFS.2e/ 4 
T5-°FOR AIR: ’s/sT7r° HEAT TRANSFER COEFF=°s 4X FE oer T40e 
"PLUME ENTRAINMENT COEFFHR°s 7XeFSe2r/e 
T5/°FOR LAYER GASES: °/sT7r°MAX. HEAT TRANSFER CCEFF=",F6.2 
T4C/°MINe HEAT TRANSFER COEFF="%s 6XeF5.cr/e 
T5/°FOR VENTS: °o/oT7o “FLOW CCEFFICIENT="+8X,FS5.2r//) 


Ow & tan nd 


ENC 
SUBROUTINE ALDIFFCXsXMAXsTIMEshs-HSTOREsHMINZ EPS, 
1 RKESULT-ORCERsMAXVRSs»MAXOCR, 
1 CLOXAERRCR-AZEROs-Z, NAC, PIVCT) 
IMPLICIT INTEGER (A-Z) 
INTEGER RESULT/-CROERsMAXVRSs FNUMsGNUMsENUMs INUM, PIVCT(%) »-MAXODR 
REAL*®8 XC ®),XMAX CA) STIMESHe/HMINSHMAXSEFSSOLOX(%), 
1 ERRORC A) AZERCOC#) 42 (%) SAC CMAXVRSs» *%) -ESTORE 


FIRST CROER ROUTINE FCR SOLVING A SYSTEM OF 
ALGEBRAIC-CIFFERENTIAL EQUATICNS. THE ROUTINE IS BASED CN GEAR’S 
CIFSU8. THE FCKM OF THE EQUATICNS SOLVEC IS 
O = FCUrVewsT) 
V°= GCUsVenWrT) 
W = HCUs VobsT) 
Y = ICUs VeWsT) 


WHERE Us Vs We ANC Y HAVEs RESPECTIVELY, THE CIMENSIONS CF Fs Ger Ke 
ANC I. 

THE PRCGRAMW REQUIRES A ROUTINE NAMED 

FUNCT(X+Z,T) 

THE INPUT TC TKE RCLTINE IS X AND Te X IS AN ARRAY CONTAINING 
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MONA ADAADAHRADHDAAAAKANANKDAARAAAAGDAMAVAAAAANAANNANAANAKAAAAANAAANAANAANAAANAAAAMAAANA 


UsVeWs AND Y STORED CONTIGUOUSLY ANC FUNCT RETURNS THE VALUES 
FOR FeGrt» AND I STCREC IN Ze FNUMy GNUM,» KNUM, ANC INUM ARE 
THE DIMENSICNS CF UsVeWe¥ RESPECTIVELY. 

THIS VERSICN IS A MYBRIC OF THE NEWTON AND GAUSS“SETDEL 
PACKAGES. IT RUNS IN GAUSS SEICEL UNTIL TRE CCRRECTOR 

FAILS TO CCNVERGE AT THE MINIMUM TIME STEP AND THEN 

SWITCHES OVER TO NEWTONs IN SUBSEQUENT STEPS, EVERY TIME 
THE JACCBIAN IS REEVALUATED THE PROGRAM FIRST TRIES TO 
CONVERGE TRE CCRRECTOR USING GAUSS@SEICEL. AS SOON AS 

ONE CF THESE ATTEMPTS SUCCEEDS, THE PRCGRAM SWITHCES BACK 

TO GAUSS*SEICEL. OTHERWISEs IT EVALUATES THE FULL JACCEIAN 
ANO REMAINS IN NEWTCN MCOE.} 


INPLTs 
X ©= THE LATEST SET OF CONVERGED VALUES FOR THE VARIABLES 
ANC THEIR SCALED OERIVATIVES. 
XMAX == ARRAY CONTAINING A SIGNIFICANT VALUE FOR EACH VARIABLE. 
TIME ~~ THE TIME AT WHICH THE VARIABLES IN X ARE CONVERGED. 
H = THE USER*®S SUGGESTED TIME STEP. ALOIFF WILL TRY TC TAKE 
A TIME STEP OCF THIS SIZE FIRST, ANC WILL CLT THE TIME STEP 
ONLY IF IT FAILS TC CONVERGE WITH THE GIVEN TIME STEP. 
HSTORE == THE TIME STEP AT WHICH THE DERIVATIVES IN X ARE SCALEO. 
HMIN *° THE MINIMUM TIME STEP. 
EPS == THE ONE STEP ERROR TOLERANCE. 
ORCER -= THE ORDER CF THE METHCD THAT WILL BE USED. 
MAXVRS =~ CECLAREO ROW DIMENSICN OF JAC. 
ERROR <= 
JAC =~ AN ESTIMATE CF THE JACOBIAN MATRIX CF THE SYSTEM OF 
EQUATIONS DECOMPCSEO INTO UPPER TRIANGULAR FCRM,. 


OUTPUT: 

X == TRE LATEST SET OF CONVERGED VALUES FOR THE VARIABLES. 
IF ALCIFF COES NOT SUCCESSFULLY COMPLETE A TIME STEP, 
X IS RESTORED TO ITS INPUT VALUES. 

TIME == THE TIME AT WHICH THE VARIABLES IN X ARE CONVERGED. 

H =~ A SUGGESTION FCR THE NEXT TIME STEP. THIS IS NOT RECCM= 
PLTED AT EVERY TIME STEP. IF THE*USER HAS SUGGESTED & 
TIME STEP SIZE CTHER THAN THE ONE THAT ALCIFF SUGGESTS, 
ALCIFF MAY SIMPLY RETURN THIS MODIFIEC TIME STEP AS ITS 
"SUGGESTION". 


HSTOCRE -- THE STEP SIZE AT WHICH THE OERIVATIVES IN X ARE 
SCALEC. 
RESULT  =* CONTAINS A FACTOR OF =)" TF Tres) Pe Fatleo 


CONTAINS A FACTOR OF 2 FOR EVERY TIME THAT 
THE LCCAL ERROR wWAS TCO LARGE. 
CONTAINS A FACTOR OF 3 FOR EVERY TIME THAT THE 
CORRECTOR FAILED TO CONVERGE. 
CONTAINS A FACTCR OF 5 IF THE JACCBIAN WAS SINGULAR 
TC MACHINE PRECISION. 

ORCER -° A SUGGESTICN FCR THE CROER TO BE LSED AT THE NEXT 


‘TIME STEP. 
OLCX == THE VALUES THAT X CCNTAINEC ON INPUT. 
ERROR = AN ESTIMATE OF THE TRUNCATION ERRCR FCR EACH VARIABLE 


FOR TRE TIFE SIEPS 
ZERO == GARBAGE. 
Z «= GARBAGE. 


JAC ~~ BN ESTIMATE CF TRE JACOBIAN CECCMPOSED INTO UPPER 
TRIANGULAR FCRM. MAY BE A CIFFERENT ESTIMATE THAN 
ON INPUT. 

PIVCT =~ TRE PIVOT VECTCR FOR THE CECOMPOSED JACOBIAN. 
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C 
C 


INTEGER IvdeKeCCUNTsSIZE-RF/RFPI-DERS-CERSPI-FIX-FIXP1 
INTEGER CALLS/-CHECK/MAXCOR,METHODs/NWIN/GS/MATRIX, 


1 GSCReNWINCRsMAXREV 
PARAMETER (NWIN = 14 GS = 
1 MAXREV = 30) 


2 


e GSCR 257 NWINCR = 1C, 


EXPLANATION CF FLAGS FOR THE HYBRIC: 


METHOD -- 


SET TC NWTN WHEN IN NEWTCN MCOE AND TC GS WHEA INA 


GAUSS“SEICEL MCOCE. 


MATRIX =~ 


SET TC NWTN IF THE CURRENT MATRIX STCRED IN JAC 


IS A FULL JACCBIAN ANC TC GS IF THE MATRIX IN JAC 
IS ONLY A GAUSS“SEIOEL JACCBIAN. 


CALLS -- 


THE NUMBER CF ATTEMPTEC TIME STEPS FOR WHICH TEKE 


CURRENT JACOBIAN HAS BEEN USEC. 


GSCR “= 


THE MAXIMUM NUMBER OF CORRECTOR ITERATICNS WHICH MAY 


BE TAKEN WREN JAC CONTAINS A GALUSS-SEICEL MATRIX. 
NWTNCR ~~ THE MAXIMUM NUMBER OF CORRECTCR ITERATIONS WHICH 
MAY BE TAKEN WHEN JAC CONTAINS A FULL NEWTON MATRIX. 
MAXREV -- TRE MAXIMLM NUMBER OF ATTEMPTED TIME STEPS FCR WRICH 
A JACCBIAN MAY BE USED WITHOLT BEING REEVALUATED. 


REAL*®8 CTOL/-OLOT/-CLOHs,SUM-CELTAA,L(026-6)- 
1 L2O-,Le22e-LidsLi2s-LiselL ages La2,La43eLa4stL SO, _S2eLisel S54. 85, 
2 LEDALE2rL ESL EG PLES rLOEGePRIsPR2ePRIZENCILENG2-PENQ3S» 


3 E,EUP,EDCWN/RACUMSR 
REAL*8 ERRTST(743) 
LOGICAL CONV 
SAVE 
PARAMETER (L20 = 

{+820 6.006/11.000, L32 

2 L40 = C.4800, L42 = 

WE°RE NCT SURE IF L40 SHOULD 
BCTH. 
3 £80 = 
4 L53 


1.2CCO/2.740C, L52 
8.500/27.40C, L54 
1.800/4.410C- Lé2 


2-C00/3.00C,- L22 


0.700, L4? 


B 


1.CC0/3.000. 
C.20C, 144 = C.02C9, 
€ 12/25 OR 1/2. GEAR’S BOOK SAYS 


1.500/¢27.4CC~ L55 = 1.000/274.C00, 
5e8CO/E.30C, L63 = 1.500/3.600,7 


5 L600 = 
é L64 = 2.£00/25.20C- Lé5 3.CC0/252.CCO, 166 = 1.€000/1764.00C) 
DATA L/1.000,1.C00,/C.000-0.C00-0.00060-0.C00-C.000, 
1 L20, 1.000/L22, 0.€00-C.000,0.CC0,-C.00C, 
2 L30, 1.GCOsL32, 33, C€.CGdC-C.C00-C .00C, 
3 L400, 1.CfO-L42, 42, L44, G.CCO-C.O0CC, 
4 L50, 1.000-L52, L53- L544, LSS, C.00C, 
5 L690, 1.0CO0-Lé2, L63- Lé4r LE6Se L666 / 
CATA ERRTST/2.€000,12.000-24.00C,37.8900,53.230C,70.C800,87.970C, 
1 12.000-24.C00,37.8900,52.3300,7C.0&f0,87.9700,1.000, 
2 1.€00-1.000,2.00041.000-0.215700-0.C74C700-0.012900/ 


CO 10 I = 1/CORCER+1)*SIZE 
CLOXC(I) = X(T) 
CONTINLE 
CLCH RSTCRE 
RESULT = 1 
OLCT TIME 
RACLUM = 1.CC0 
IF CH EC. CLOK) GCTO 60 
RACUM = w / OLCK 
C SCALE THE APPROXIMATIONS OCF THE DERIVITIVES 
20 RACUM = MAXCABSCHMIN/OLOCH)-RACLM) 
SUM = 1.00C 
00 40 J = 1-/0RCER 
SUM = SUM * RACUM 
CO {50s 2) See SIZE 
XCS*SIZEtI) = 
CONTINUE 


10 


SUM * OLCXCJ*SIZE+I) 
3C 
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40 CONTINUE 
H # QOLCh * RACUM 
DO 50.1 = 1,/SIZE 
XCI) # OLOXCT) 

5G CONTINUE 


HSTORE #* WH 
CHECK = ORCER + 1 
C PREOICT. 


60 TIME =. TIME + H 
00 90 J ® 1/0RDER 
CO 80 K ® JsORDER 
COUNT = CORDER = K' + J = 1) * SIZE 
00 70 1 * 1/S8IZE 
XCCOUNT#I) © XCCOUNT4I) + XCCOUNT+SIZE+I) 
70 CONTINUE 
80 CONTINUE 
90 CONTINUE 
00 100 I = 1/STZE 
ERROR(I) = 0.000 
100 CONTINLE 


CORRECT. 


Oana 


REEVALLATE THE JACOBIAN IF NECESSARY. 
IF CCALLS .GT. MAXREV) THEN 
IF (METHOD .EQe NWTN eANDe MATRIX «EC. GS) THEN 
C EVALUATE THE FULL JACOBIANS. 
T = FIX 
MATRIX © NWTN 
ELSE 


C EVALUATE THE PARTIAL DERIVATIVES ONLY FOR THE ROOT FINDING 
C EQUATIONS (THIS IS AN IMPLEMENTATION OF THE GAUSS= SEIDEL 
C METHOD). 
I = RF 
MATRIX = GS 
ENO IF 


CALL EVJACCI + Xs EPS/XMAXs TIMEZRE,RFEP1,DERS/H/CERSP 1, 
1 LCOsORCER) «SIZE MAXVRS»PIVOT/CONVs JACAZ/ZERO) 
C SEE IF THE MATRIX WAS SINGULAR. 
IF (CONV) THER 
RESULT = -5 * RESULT 
C PUT BACK TRE LAST CONVERGEO VALUES. 
TIME = OLOT 
HSTORE = OLCH 
00 181 IL#1,-CORCER+1)*SIZE ’ 
XCI) = OLOXCTI) 
181 CONTINUE 
RETURN 
END IF 
CALLS 2 C 
ENC IF 


IF (MATRIX «EQe NWTN) THEN 
T = AWTNCR 


ENC IF 
CALL CCRECTCJAC.,I, TIME,X/RFPI/CERSeSIZE-HeCERSP1/MAXVRS> 
1 Je PIVCT-KsLCO-CROER) -ERROR/RF/CTOL/XMAN-CONVsCCUNTSZZERC) 
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CALLS = CALLS + 1 


IF (.NOTe CONV) THEN 
CORRECTOR CIO NCT CONVERGE 
RESULT = RESULT * 3 
IF Ch eLE. HMIN*1.000C0100) THEN 
WE°RE AT TRE MINIMUM TIME STEP 
IF (MATRIX eECe NWTN) THEN 


THE TIME STEP FAILEO EVEN THOUGH THE FULL NEWTON MATRIX WAS USED. 


BOME OLT. 
RESULT = “RESULT 
BACK UP TO THE LAST CONVERGES VALUES. 
‘TIME = OLCT 
FSTORE = CLOH 
Co 101 L=1/-C(CROER+1)*SIZE 
XCI) = CLOXCI) 
101 CONTINUE 
RETURN 
ELSE 
WE HAVE NOT YET TRIED THE TIME STEP WITH TRE FULL NEWTCN MATRIX. 
SWITCH TC NEWTCN’S METHCD FROM GAUSS“SEICEL. 
METHCC = NWTN 
CALLS = MAXREV + 1 
TIME = OLODT 


FR = CLOH 
GC TC 20 
ENC IF 
ELSE 


THE CORRECTCR CID NCT CCNVERGE, BUT WE CAN STILL CUT THE TIME 
STEP AKD TRY AGAIN IN GAUSS“SEICEL. 
CALLS = MAXREV + 1 
TIME = OLOT 
KH = CLCH 
RACUM = RACUM * 0.5C0 
GOTC 20 
ENOIF 
ELSE 
CORRECTOR CONVERGED 
IF WERE IN NEWTON MCOE AND THE CORRECTOR JUST CONVERGEC WITHOUT 
USING THE FULL NEWTGN MATRIX, THEN SWITCH @ACK TO GAUSS-SEICEL 
MOCE. 
IF (CMATRIX.EQ.GS wzAND. METHOD.EQ.NWTN) METHOD = GS 
SUM = Q.CCO 
CO°7tC IT #-1-STZE 
SUM = SUM + CERRORCI)D/XMAXC(I) ) #22 
110 CONTINUE 
IF CCH.LE.2eCC*XHMIN.AND.CROERLEQ.1) «CRe SUM «LE. E) THEN 
THE LOCAL ERROR IS WITHIN TCLERANCE 
CLCT = TIME 
NEwR = H 
CO 130 J = 2-/CRCTER 
CC 120 I =. 4/SIZe 
XCJRSIZE+I) = XCJ*SIZE4I)D - LCUAORCER) * ERRORCTI) 
12C CCNTINUE 
130 CONTINUE 
CHECK = CHECK - 1 
IF (CHECK .GT. 1) RETURN 
TF CCHECK™ .GT.° CG) THEN 
Cc 140 I = 1/SIZE 
ERRORCI+SIZE) = ERRORCI) 
140 CONTINUE 
RETURN 
ENCIF 
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ELSE 
C LOCAL ERROR TOC LARGE 
RESULT # RESULT * 2 
IF €H sLE« HMIN*1.0C00100) THEN 
RESULT = “RESULT 
C RECCVER LAST CCNVERGEC VALUES. 
TIME = OLCT 
KSTORE = OLOH 
CO 1414 IT=1-CORDER+1)*SIZE 
X¢I) = OLOXCT) 
141 CONTINUE 
RETURN 
ELSE 
TIME = OLCT 
Fk = OLOH 
RACUM = RACUM *0.250C 
GCTO 20 
ENCIF 
ENOTIF 
ENCIF 
C CALCULATE NEW STEP SIZE 
PR2 = 1.200 * (SUM/E) ** ENC2 
PR? = 1.0032 
IF CORCER «LT. MAXOOR) THEN 
SUM = Q.CCO 
CO 15C Loe taSiZe 
SUM = SUM * (CERRORCI)ERRCORCI+SIZEDI/XMAXC(ID) 2% 2 
150 CONTINUE 
PR3 = 1.400 * CSUM/EUP) ** ENC3 
ENCIF 
PR1 = 1.0032 
IF CORTER «GT. 1) THEN 
SUM = 0.CCO 
COSteCrt sir eSiZt 
SUM = SUM + CXCCROER*SIZE+ID/XMAXCI)) 4% 2 
160 CONTINUE 
PR1 = 1.300 * (CSUM/EDCWN) ** ENQ1 
ENCIF 
IF CPR2 LE. PRI) GCTO 180 
TF CPR3 LT. PR1) GCTO 190 
170 R = 16COO/MAXCPR171.00~4) 
COKV = FALSE. 
ORCER = ORCER - 1 
GOTC 210 
180 IF CPR2 .GT. PR1) GCTO 170 
COAV = .TRLE. 
GOTC 21C 
190 R = 1.COO/MAXCPR3, 1.00-4) 
CONV = FALSE. 
CO 200 I = 1-SIZE 
XCCORCER+1)*SIZE+I) = ERRORCI) * LCORCER-ORCER) / DBLECORDER) 
20C CONTINUE © 
ORCER = ORCER + 4 
GOTO 210 
210 CHECK = ORCER + 1 
IF CR «GT. 1.100 «OR. R LT. 0.900) H = H * R 
IF CCONV) RETURN 
C ORCER CHANGE 
CALLS = MAXREV # 1 


ENC1 = C.500 / CBLECOROER) 
ENC2 = 0.500 / CBLECORDER + 1) 
ENC3 = C.5CC0 / CBLECORDER + 2) 
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E = (CERRTSTCORDER/1)*EPS) xx 2 

EUF = CERRTSTCOROERs2)*EPS) ** 2 
EDCWN = CERRTSTCORDERs3)*EPS) *e 2 
CTCL = EPS * ENC3 / DBLECSIZE) 
RETURN 


ENTRY ACINITCX/-TIME-HSTCREFZEPS/CROER-FNUM/GNUM/ ENUM, INUM) 
ENTRY FCR INITIALIZATICN 
ACINIT IS CALLED CNCE BEFORE ANY CALL TC ALOIFF ANC IT MAY BE CALLED 
WHEN THE USER WANTS TO RESET ALDIFF TO BE A FIRST CROER METHOC. 


METHOD = GS 
CALLS = MAXREV + 14 
RF = FAUM 


RFP1 = RF + 1 
DERKS = FNUMR + GNUM 
CERSP1 = DERS + 1 
FIx = CERS + HNLM 
FIXP1 = FIX + 1 
SIZE = FIX + INUM 
CALL FUNCTCX-XCSIZE+1)-TIME)D 
CO 220 I = 1/FNUM 
XCI+SIZED = C.00C 
22C CONTINLE 
00 220 I = RFP1/DERS 
XCI+SIZE) = XCI+SIZE) * HSTORE 
230 CONTINLE : 
CO 240 I = CERSF1,SIZE 
XCI) = XCI#SIZE) 
XCI#SIZE) = 0.000 
24C CONTINLE 


CHECK = 2 

ORCER = 1 

ENC1 = C.5CC 

EN€2 = C.2500 

ENC3 = 1.000/6.C0C 


E = CERRTSTC141)*EPS) xe 2 

EUP = CERRTSTC1-2)%EPS) ee 2 

EOCWN = CERRTSTC1/,3)*EPS) xx 2 

CTCL = EPS * ENCS / DBLECSIZE) 

RETURN 

ENC 

SUBROUTINE CORECTCJAC/MAXCORs-TIMEsX/FNLMPI/CERSsSIZEs 
1 H-CERSP1s,PAXVRSsLECePIVOT-LEQFI,-LeERRCRsFNUMsCTOLs XMAX, 
2 CCNV,/CCUNT,/ZERC) 

IMPLICIT IATEGER CA-Z) 

INTEGER FNUMP1,-CERSs/SIZE-DERSPITsMAXVRS-LEQ/-LEQCPI-FNUM, 
1 CCUNTsMAXCORs PIVOT) 

REAL*®8 JACCMAXVRS, *) TIMES XC) cH eo Le ERROR CH) CTCL AXMAX (CR), 
1 ZERCC(*) 

LOGICAL CONV 


THIS SUBROLTINE ATTEMPS TO ITERATIVELY SCLVE THE CCRRECTOR EQUATION 
GIVEN AN INITIAL GUESS AND AN ESTIMATE OF THE JACOBIAN MATRIX. 
INPUT: 


JAC =~ AN ESTIMATE CF THE JACOBIAN MATFIX IN DECOMPCSEC, UPPER 
TRIANGULAR FCRM. 

MAXCCR =~ THE MAXIMUM NUMBER OF ALLOWABLE ITERATIONS. 

TIME -- THE INCEPENCENT VARIABLE OF THE SYSTEM CF EQUATIONS. 
AVPRa THEW INITIAL P GUESS AT THE “SOLUTION CF THE’ SYSTER. 

FNLMP1 -~- PCINTER TC THE FIRST CIFFERENTIAL ECLATICN VARIABLE 

IN THE VECTCR X. 
CERS == POINTER TO THE LAST OIFFERENTIAL EQCUATICN VARIABLE IN 


THE VECTOR X. 
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SIZE -- NUMBER CF VARIABLES IN THE SYSTEM. 

H = SIZE CF THE CURRENT TIME STEP. 

CERSP1 7° PCINTER TO THE FIRST FIXED PCINT VARIABLE IN THE 

VECTCR Xe 

MAXVRS == CECLARED ROW CIMENSION OF JAC. 

LEC -= NUMBER CF CCLUMNS WHICH WERE EVALUATED IN THE JACOBIAN,. 

PIVOT == PIVOT VECTCR USED BY SOLVE. 

LEGiP Ty se eG +," 1 

L ee 

FNUM =~ POINTER TO THE LAST ROCT FINCING VARIABLE IN Xo 

CTCL == ERROR TCLERANCE FOR THE CORRECTCR. 

XMAX =" ARRAY CONTAINING A SIGNIFICANT VALUE FOR EACH VARIABLE 
' IN THE SYSTEM. 

ZERO == CONTENTS IGAOREC. 


OUTFUT: 


20 


30 


40 


50 
60 


76 


CONV == SET TRUE IF THE CORRECTOR CONVERGEC. 
ZERO == GARBAGE. 
IF CONVERGED: 
X = THE CONVERGED VALUES OF THE CORKECTCR. 
ERROR == THE COMPCNENT BY COMPONENT CIFFERENCE BETWEEN THE 
PREDICTEC VALUES OF X AND TRE CONVERGED VALUES. 
COUNT == THE NUMBER OF ITERATIONS REQUIRED FOR CONVERGENCE. 
IF NOT CONVERGEC: 
X,ERRCR*COUNT == GARBAGE. 


INTEGER IvJ 


COLNT = 0 
CALL FUNCTCX,/-ZERO-TIME)D 
00 30 I = FNUMP1,CERS 
ZEROCI)D = XCI+SIZE) - H * ZEROCTI) 
CONTINUE 
00 40 I = CERSPT,SIZE 
ZEROCI) = XCI) = ZEROCTI) 
CONTINUE 
CALL SCLVECMAXVRSsleqeJACZZERO-PIVCT) 
CO 6C J = 1Irlee 
Co SC I = leapi-SIZE 
ZERCCI) = ZERCCI) - JACCI-J) * ZERCCJ) 
CONTINUE 
CONTINLE 
CONV = .TRUE. 
00 70 I = 1/SIZE 
XCI) # KCI) "= LL & ZERCCI) 
XCI*SIZE) = XCI+SIZE) - ZEROCI) 
ERRORCI) = ERRORCI)D + ZEROCTI) 
IF (CONV) THEN 
CONV = ABSCZERC(I)D) LE. CTOL * XMAXCTI) 
'€ND IF 
CONTINUE 
COUNT = COUNT + 1 
IF (.NCTe CONV eANCe COUNT oLT. MAXCOR) GO TO 2C 
RETURN 
ENC 
SUBROUTINE EVJACCKLEC sXe EPS eXMAXsTIMEsFANUMSFNUMP1/0ERS, 


1 AeDERSPI-Le¢SIZEsMAXVRSsPIVCT/«SINGs JACeZ,ZERO) 


IMPLICIT INTEGER CA-Z) 

INTEGER LECsSIZEsFNUMP1 »-DERSs/DERSP1/MAXVRS/-FNUMs PIVOT (*) 
REAL*8 XCH)F,EPSs+XMAXCH) TIME sHs JACCMAXVRS 44) sLe-20%) -ZERC(*) 
LOGICAL SING 
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C 
C 
C 
C 
C 
Cc 
C 
C 
C 
Cc 
C 
C 
C 
Cc 
C 
C 
Cc 
Cc 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
Cc 
C 
$ 


C GET 


C USE 


4C 


THIS SUBROUTINE USES OCIFFERENCES TC APPROXIMATE THE JACOBIAN MATRIX 


DECOMPCSES THE MATRIX IATO UPPER TRIANGLLAR FORM, 


TO CHOCSE THE SIGN CF THE INCREMENT FOR EACH VARIABLE, THE SUBROUTINE 
EXAMINES TRE VALUES OF THE FUNCTIONS AT THE CURRENT ITERATICN VALUES 


TRIES TC DETERMINE IN WHICH DIRECTION THE CCNVERGEO VALUE CF EACH 


VARTABLE LIES. 


INPUT: 


LEC -- NUMBER CF JACOBIAN COLUMNS TO EVALUATE. 

X ~~ TRE CURRENT ITERATION VALUES FOR THE VARIABLES. 

EPS -- THE ERROR TOLERANCE. 

XMAX =~ ARRAY CCNTAINING A SIGNIFICANT VALUE FCR EACH CF THE 
VARIABLES IN THE SYSTEM. 

TIME -- THE INCEPENCENT VARIABLE OF THE SYSTEM. 

FNUM =~ POINTER TO THE LAST ROOT FINCING VARTABLE IN X. 

FNLMP1 -~ POINTER TC THE FIRST CIFFEREATIAL ECLATICN VARIABLE IN 

TRE ARRAY Xe 

DERS -~ POINTER TO THE LAST DIFFERENTIAL ECUATICN VARIABLE IN 
THE ARRAY X. 

H -- SIZE CF THE CURRENT TIME STEP. 

DERSP1 -- PCINTER TC THE FIRST FIXED PCINT VARIABLE IN THE ARRAY 

Xe 
L -- A SCALING FACTCR FCR THE JACOBIAN WHICH OEPENCS ON THE 
ORCER CF TRE METHOC IN USE. 

SIZE -- NUMBER CF EQUATIONS CURRENTLY IN TRE SYSTEM. 

MAXVRS -= CECLARED ROW CIMENSICN OF JAC. 

PIVOT -- THE PIVOT VECTCR USED: BY OECOMP. 

Z ~~ CCNTEATS IGNORED. CUSED AS WORK SFACE. MUST 2&E CIMENSTIONED 

AT LEAST MAXVRS.) 

ZERC -- CONTENTS IGAROREC. CUSED AS WORK SPACE. MUST BE 

CIMENSICNED AT LEAST MAXVRS.) 


CUTFUT: 


JAC =~ THE JACCBIAN MATRIX SCALED BY A FACTCR CF L. 

SING =~ SET TO TRUE IF THE MATKIX ITS SINGULAR TC THE WCRKING 
PRECISION CF THE MACHINE. 

Z,ZERO -~ GARBAGE. 


INCLUCE 9/ICE.CMN 


INTEGER IvJ 
REAL*8 SUM/CELTA 
CHARACTER VARNAM*10 


VALUES CF FUNCTIONS WITH CURRENT ITERATION VALLES. 
CALL FLUNCTCX/ZERO/-TIME)D 
OC 20 I=FNLMP1-CERS 
ZEROCI)D = XCI+SIZE) - H*ZEROCI) 
COATINLE 
CO 30 I=CERSP1-SIZE 
ZEROCI) = XCI) = ZEROCTI) 
CONTINUE 
CIFFEREACES TO APPRCXIMATE THE JACOBIAN. 
00 70 I=1z,leq 
SUM = X(T) 
CELTA = C.00 
IF CReNEC.0C) CELTA = HMIN*ABSCXCIFSIZE) D/H 
IF CABSCCELTA)*1.08 wLT. XMAXCI)) CELTA = XMAXC(ID/1.C8 
XCI) = SUM + CELTA 
CALL FUNCTC(X/Z-/TIME) 
CO 4C J = FNUMP1,CERS 
Z(J) = XCJ*SIZE) - H ® ZCJ) 
CONTINUE 
Cc SC J = DOERSP1-SIZE 


29 
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50 


60 
7C 


80 


ZQJ) = XCJ) = 20) 
CONTINUE 
CoO 6C J = 1/SIZE 
JACCJ-ID = L * C20N) = ZERCCJI/OELTA 
CONTINUE 
XC(I) = SUM 
CONTINVE 
00 80 I#FNUMP1,CERS 
JACCIZI) = JACCKI-I) + 1.00 
CONTINLE 


C DECCMPCSE THE MATRIX INTO UPPER TRIANGULAR FORM, 
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120 


CALL DECOMPCMAXVRSsLEQe-JACA-CELTA-PIVOTs2) 
WRITECTWOSK,120) CELTA 

WRITECIWTTY-120) CELTA 
FORMAT(Xs”“CCNDITION NUMBER IS °,1PE10.2) 
SUM = CELTA + 1.0C 

SING ® SUMSEQeCELTA 

RETURN 


* ENC 


SUBROUTINE UNPCSCCX/TIME,TCISCeFINISHsCSCTYP/CKHNGOB-CHNGRM) 
IMPLICIT INTEGER (CA-2) 

REAL*8 TOISCsXC*)/-TIME-FINISH 

INTEGER CSCTYP-CHNGCB-CHNGRM 


TRIS SUBROUTINE IS CALLED AFTER THE CCMPLETION OF 


A TIME STEP TO DETERMINE IF ANY UNPLANNEO 


4 


DISCONTINUITIES OCCURREC IN THAT TIME STEP. 


CISCONTINUITY IS A PARTICULAR 


TYPE OF INTERRLPTION WHICH IS SPECIAL IN ThAT IT 
REQUIRES A CHANGE IN THE SET CF EQUATIONS TC BE SOLVED. 


SO FARs ALL UNPLANNED INTERRUPTIONS ARE 


1. 


2a 


3. 


4. 


DISCONTINUITIES. EXAMPLES CF CISCONTINUITIES INCLLCE 
IGNITICNS AND BURNOLTS. BOTH TYPES OF EVENT REQUIRE A 
CHANGE IN THE SET CF EQUATIONS TO BE SCLVEC. 


THE SUEROUTINE MUST PERFORM SEVERAL FUACTICNS: 
DETECTICN =~ THE SUBROUTINE EXAMINES THE 

CCNVERGED DATA FROM THE PREVICUS TIME STEP TO 

DETERMINE WHAT TYPES OF UNPLANNED OISCCNTINUITIES 

HAVE CCCURRED. CURRENTLYs THE ONLY 

DISCONTINUITIES WHICH ARE RECCGNIZED ARE IGNITION 
CTHROUGH HEATING OR CONTACT). BURN“OUT, ANC 

TRE SPILLCVER CF HOT GASSES INTO A PREVIOUSLY UNINVOLVED 
LOCATICN -- AS THE SUBROUTINE CETECTS EACH 

DISCONTINUITY IT MUST ESTIMATE AT WHAT TIME IT 

OCCURREC. CURRENTLY» THIS IS ACCCWPLISHEC VIA 

LINEAR EXTRAPCLATICN. 
SELECTICN CF THE FIRST OISCONTINUITY ~~ IF MORE THAN 

ONE DISCOATINUITY RAS CCCURREC OURING THE PREVIOUS 

TIME STEP» THE SUBROUTINE MUST DECICE WHICH ONE OCCURRED 
FIRST. 
SET FLAGS -- THE SUBROUTINE SETS TCISC TO THE TIME CF THE 


FIRST CISCCNTINUITY WHICH OCCURREO CURING THE JUST COMPLETED 


TIME STEP, SETS OSCTYP TC INDICATE THE TYFE OF OISCONTIN- 
UITY whhICRK HAS OCCURREC ANC SETS CRHNGCE ANO/CR CHNGRM 

TC INCICATE WHICH ENTITY IS AFFECTED 

BY THE STATE CHANGE. 

NCTE TRAT SETTING TOISC TC THE TIME GF 

TRE DISCONTINUITY TELLS THE MAIN PROGRAM TO REFEAT THE 
TIME STEP WITH A PLANNED CISCCNTINUITY AT TIME TOISC. 


PLANNED VS. UNPLANNED INTERRUPTIONS 
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DURING ANY RUNs CERTAIN INTERRUPTIONS MAY OCCUR WHICH 
REQUIRE ADJUSTMENT CF TRE TIME STEP. FOR EXAMPLE, IF 
WE WANT CUTPUT AT A TIME TCC)» THEN WE MUST ADJUST THE 
SIZE OF THE TIRE STEP SO THAT THE NUMERICS CONVERGES 
AT TIME TCC). SIMILARLY, IF AN OBJECT IGNITES AT TIME 
TCI), WE MUST MAKE SURE THAT THE PROGRAM CCNVERGES AT 
TIME TCI) SINCE A NEW FIRE IN THE RCCOM MAY CAUSE A 
DISCCNTINUCUS CHANGE IN THE PHYSICS OF THE ROOF. 

OTHER FOSSIT@LE INTERRUPTIONS INCLUCE THE START-UP CF A 
DEBUGGER PACKAGE, THE CPENING CF A NEW VENT» AND THE 
ACTIVATION CF A SPRINKLER SYSTEM. 

WE FINC IT NECESSARY TO DISTINGUISH BETWEEN TWC 
DIFFERENT TYPES OCF INTERRUPTION, “PLANNED™ AND 
"UNPLANNED". SUPPCSE TRAT THE PROGRAM HAS CONVERGED 
AT A TIME TCC) AND THAT AN INTERRUFTION IS TO CCCUR 
AT A TIME TCIV=TCC)+O0T. IFse AT TIME TCC) THE PROGRAM 
CAN FORSEE THAT AN INTERRUPTION WILL OCCUR AT TIME 
TCC), WE SAY THAT THE INTERRUPTION IS PLANKED. IN 
THIS CASE, THE PROGRAM WILL 8E CAREFUL NOT TO STEP 
BEYONO THE POINT OF THE INTERRUPTICN. AN EXAMPLE CF A 
PLANNEC INTERRUPTION IS A BREAK FOR CUTPLT»} SINCE THE 
PROGRAM HAS A FIXEC OUTPUT INTERVAL» TTYCUT, IT CAN 
PLAN A DISCONTINUITY WHENEVER TCO)=N*TTYOUT? FCR ANY 
INTEGER N. 

CN THE CTHER HAND, IF AT TIME TCC) THE PROGRAM 
CANNOT FORSEE THAT THERE WILL 8E A DISCONTINUITY AT 
TIME TC(O)s WE SAY TRAT THE CISCONTINUITY IS UNPLANNED. 
FOR EXAMPLE, AT TIME TCC) THE PROGRAM CANACT TELL IF 
AN CBJECT wILL REACH ITS IGNITION TEMPERATLRE CURING 
THE UPCOMING TIME STEP CR DECICE IF THE FIFE WILL 
BECCME HCT ENOUGH TC SUCDENLY CPEN A HOLE IN THE 
CEILING. IN TRIS CASE,» THE PCRGRAM MUST STEP &EYONC 
THE TIME TCC) CF THE INTERRLPTICN BEFORE IT CAN DETECT 
THE INTERRLPTIOCN. 
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INPUTS: 
X -- VECTOR OF CONVERGEC VARIABLES. 
TIME -- THE TIME AT WHICH THE VARIABLES ARE CONVERGED. 
TOISC -- > FINISH IF NO CISCONTINUITY IS SCHEDULED. 
< FINISH IF A CISCONTINUITY IS SCHEDULED BUT KAS 
NOT YET BEEN REACHED. IN THE LATTER CASE, TDISC IS 
THE TIME CF THE PREVICUSLY SCHEDULED CISCCATINUITY. 
FINISH -- THE STOPPING TIME FOR THE RUN. 
OUTPUTS: 
TOISC -- TRE TIME CF THE FIRST UNPLANNED DISCONTINLITY 
WHICH CCCURRED DURING THE JUST COMPLETED TIME 
STEP. 
OSCTYP -- THE TYPE CF CISCONTINUITY WHICH CCCURRED AT 
TIME TYCISC: 
CSCTYP = 1 (BRNOUT) ==> BURNOUT 
CSCTYP = 2 CHEATIG) --> IGNITION BY HEATING 
CSCTYP = 2 (CCNTCIG) --> IGNITION BY CCNTACT 
CSCTYP = 4 C(SPLOVR) --> HOT GASES BEGIN TC FLCW INTO 
A PREVIOUSLY UNINVOLVEC ROCM. 
CHNGOS -- THE CBYECT NUMBER OF THE CBJECT AFFECTED 8Y THE STATE 
CRANGE. 
CHNGRM -- THE RCOM NUMBER OF THE RCOM CONTAINING TRE OBJECT AFFECTED 
BY THE STATE CHANGE. 
SAVE 


$INCLUDE 9/DIMN.CMN 
SINCLLDE 9/VARE6.CMN 


= i 


$INCLUOE 9-/BLONG.CMN 
$INCLUOE 9/O0SCNAM.CMN 


C 


C BRNCTM == WHEN A BURNING OBJECT HAS MASS < CR #® BRNCTM, 


C 


Cy Cy. 


aon 


C 


THE 


THE CBJECT IS CONSIOERED TO HAVE BURNT OLT. 
REAL*8 BRNOTM 
PARAMETER CB8RNOTM = 1.0~6) 


INTEGER ReCr O02 
REAL*®8 TOISC1/0/SUM-VSEP 


FOLLOWIAG STATEMENT FUNCTION LINEARLY INTERPOLATES T BACK 


TO THE TIME AT WHICH X FAD THE VALUE XI GIVEN THAT T HAC TRE 
VALUE T1 WHEN X WAS X1 AND T WAS T2 WHEN X WAS X2e 


REAL*8& THseT2eX1eX2eXIe INTERP 
INTERP CTI eT2eX1oXeeXl) = CXIMX1) & CT2°T19/0X2°x1) + T1 


IF THERES ALREADY A DISCONTINUITY SCHECULEOs DON’T TRY TO 
SCHEOULE ANCTHER ONE. 


TF CTOISCLEsFINISH) RETURN 


CHECK EACH ROOM FOR SPILLOVER FROM ANOTHER ROOM. 


00 300 R®1/NROCMS 
IF CLAYRCR)I) GOTC 300 
IF CTMUSMCR)2NE00.00) THEN 


SPILLOVER CETECTEDS 


30C 


TOISC1 = OLOTIM 
IF (TOISC1.LT.TCISC) THEN 
TCOISC = TOISC1 
CSCTYP = SPLOVR 
CRHNGKM ® R 
ENC IF 
ENO IF 
CONTINUE 


CHECK EACH OBJECT FCR IGNITIONS ANC BURNOUT. 


00 30 R=*1-NROOMS 
CO 2C 0=1-/0BJNS(R) 


CHECK FOR BURNCUT 


IF (Z2MCZZCCeR)IaLEeBRNOTM ANC. STATECOsR) NE@CNSUM) THEN 
TOISC1 = INTERPCOLOTIMsTIME,ZMOZZPCO,R), 
ZMCZ2(G/R)/BRNCTM) 
IF CTOISC1.LT.TOISC) THEN 
TOISC = TOISC4 
CSCTYP = BRNOUT 
CHNGRM = R 
CHNGOB = 0 
ENO IF 


CHECK FOR IGNITION BY HEATING 


1 
1 


ELSE IF CZKCZZ(C/R) GEeZKOIG COR) AND JSTATECOPR) NEFLAME) THE 
N 
TOISC1 = INTERPCOLOTIM-TIME,ZKOZZPC(0,R), 
ZKCZZCO/RI/-ZKOIGCOAR)) 
IF (CTCOISC1.LT.-TOISC) THEN 
TOISC = TOISC!1 


OSCTYP = HEATIG 
CHNGRM = R 
CHNGOB = C 

END IF 


C CHECK FOR IGNITION BY CCNTACT 


ELSE 
CC 1C 02=1-0BUSC(R) 
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C 


10 
1 


IF (02.EQ.0) GO TO 10 
TF CSTATECCAR) -EQeFLAME .OR. STATECO2-R).NEWFLAME) GO } 


D = SQRTCCZXOZZCOsRIMZXOZZCO2S-RI I eR? + 
CZYOZZCO“RIM“ZVYOZZ(CO2eR) ) **2) 


C3 APRIL 1981) IF WE ASSUME THAT OBJECTS ARE CIRCULAR, THEN THEY 
MAY SEEM TC TOUCH EVEN THOUGH THEY MAY NOT IN REALITY. PRCVISION= 
ALLYs THEREFORE, ASSUME OBJECTS ARE SQUARE. IN FACT» HCWEVER, 
SHOULD HAVE IT IN THE INPUT WHETHER OBJECTS TOUCH CR OVERLAP! 


0 = 1.12838C0*0 

SUM = ZRFZICOC/R) + ZRFZZ(02-R) 

IF CSUM.LT.C) GO TC 10 

VSEP = ZHO2ZZ(02-R)-ZHOZZ(O-R) 

IF (VSEP .GT. ZNOZZ(02-R)) GO TC 10 

IF (VSEF LT. “ZHFZZ2(0Z/R)-ZNOZZ¢(0-R)) GO TO 1C 


FOR CONTACT IGNITIONs WE DON’T TRY TO INTERFOLATE FCR THE TIME 


OF IGNITION. 


10 


TOUTSCT = FIRE 
IF (TOISC1.LT.TCISC) THEN 
TOISC = TCISC 


CHNGRM = R 
CHNGCB = C 
CSCTYP = CNTCIG 
ENC IF 
CONTINUE 
ENC IF 


2c CONTINUE 


3C CONTINLE 


RETU 


ENC 


RN 


SUBROUTINE CORCCNCFAUM/SIZE-ZEROsCTOL,XMAX) 
IMPLICIT INTEGER (A-2) 

INTEGER FNUMZ/SIZE 

REAL*8 ZERC(C*) -CTOLsXMAX(*) 


SUBROUTINE WRITES CUT A LIST CF ALL THE VARIABLES whICH FAIL TC 
MEET TRE CCRRECTCR CONVERGENCE CRITERION. 


INPUTS: 
FNUM 
SLLE 
ZERO 


CTCL 
XMAX 


NUMBER CF RCOT FINANCING EQUATIONS IN THE SYSTEM. 

NUMBER CF VARIABLES IN THE SYSTEM, 

ARRAY CONTAINING THE INCREMENTS JUST APPLIEC 

TO THE VARIABLES TC CBTAIN THE ANEW ITERATION 

VALUES. 

THE ERRCR TCLERENCE FOR THE CORRECTOR. 

ARRAY CCNTAINING A SIGNIFICANT VALLE FCR EACH VARTABLE. 


INCLUDE 9,ICE«CWN 


CHARACTER*1C VARNAM 
INTEGER I-J 


WRITECIWTTY,-10) CTOL 
WRITECIWOSK,-10) CTOL 
10 FORMAT(C/X,°SCALED CCRRECTOR ERKCRS (COMPARE AGAINST 
L f° cI PEB.17°)°/Xe"° VARIASLE “sxXs°COR. ER.*) 
CO 30 I=1,/SIZE 
IF CABSCZEROCI)) «GT. CTCL*XMAXC(I)) THEN 
WRITECIWTTY-20) VARNAMCI)D-ZEROCI)/XMAXCI) 


1 CTO 
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ANOAAADAAARAANAAANAAAAAAAAAAAAAAAAGANAOAAN 


aa 


WRITECIWOSKs20) VARNAMCI)/ZEROCI)/XMAXCTI) 
20 FORMATCX¢A1C4X71PE8.1) 
END IF 
3C CONTINLE 
WRITE CIbWTTY-40) 
WRITECIWOSKs40) 
40 FORMAT(X) 
RETURN 
ENC 
SUBROUTINE DECCMPCMAXVRSsNe Are CONCePIVOT,WORK) 
IMPLICIY INTEGER (A~Z) 
INTEGER MAXVRSsNe PIVOTCN) 
REAL*8 ACMAXVRSsN) -CONDsWORKCN)D 


FRCM FORSYTHE, MALCOLM, AND MOLERs “CCMPUTER METHOCS FOR MATHEMATICAL 
COMPUTATICNS"s» P. 5241977. 


DECOMPCSES A REAL MATRIX BY GAUSSTAN ELIMINATICN 
ANC ESTIMATES THE CONCITION OF THE MATRIX. 


USE SOLVE TO COMPUTE SOLUTIONS TO LINEAR SYSTEMS. 


INPUT ee 
MAXVRS = CECLAREO ROW OIMENSICN CF THE ARRAY CONTAINING A. 
N = CROER OF THE MATRIX. 
A = MATRIX TC BE TRAINGULARIZED. 


OUTPUT... 

A CONTAINS AN UPPER TRIANGULAR MATRIX U AND A PERMUTEC 
VERSION OF A LOWER TRIANGULAR MATRIX IL SC THAT 
CPERMUTATION MATRIX) *A = LeU, 

CCND = AN ESTIMATE CF THE CONDITION CF A. 

FOR THE LINEAR SYSTEM AxX = Bs CHNAGES IN A ANC 8B 
MAY CALSE CRKANGES CCNO TIMES AS LARGE IN X. 

TF CONC #1.CeEQeCONCe A IS SINGULAR TO WCRKING 
PRECISICN. COND IS SET 10 1.0E22 IF EXACT 
SINGULARITY IS CETECTEC. 

PIVOT = TRE FIVOT VECTOR. 

PIVOTCK) = THE INOEX OF THE KTH PIVOT ROW. 
PIVCTCN) = (CT) e*C(NLMBER OCF INTERCHANGES. 


WORK SPACE. THE VECTOR WORK MUST BE CECLAREO AND INCLUDED 
IN THE CALL. ITS INPUT CONTENTS ARE IGACREC. 
ITS OUTFUT CONTENTS ARE USUALLY UNIMPORTANT. 


THE DETERMINANT OF A CAN BE OBTAINED ON OUTPUT BY 
CETCA) = PIVCTCND#AC141) AC 22d eee KACNSN)D 


INTEGER NM1IsIT ede Ke KP 12 KBs KM1 0M 
REAL *8 EKs Ts ANORMsYNORMs ZNORM 


PIVOTCA)=1 
IF (NeEC.1) GOTO 15C 
NM1=N~1 


COMPUTE 4-ACRM CF A 


ANCRM=C.000 
00 20 J21eN 
T=0.CC0 
CO 1C I=1,/N 
T=T+ABSCACIZJ)) 
10 CONTINUE 
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aa 


aan 


aan 


aan 


Con oe we ) 


AANQAAAAAN 


IF (T.GTeANORM) ANORM=T 
20 COANTINLE 


GAUSSIAN ELIMINATION WITH PARTIAL FIVOTING 


00 70 K=1/NM1 
KP1=K+1 


FINC PIVOT 


M=K 
CO 3C I=KF1-N 
IF CABSCACI-K)).GTeABSCACMsZK))) MEI 

30 CONTINUE 

PIVOTCK)=éM 

IF (M.NE.K) PIVOT(CN) =-PIVCTCN) 

T=ACKhZK) 

ACM,/K} SACKS K) 

ACKsK)=T 


SKIP STEP IF PIVOT IS ZERO 
IF (1.sEQ.0.00G6) GCTO 70 
COMPUTE MULTIPLIERS 


CO 4C I=KF1,N 
ACIZK=-ACI/K)/T 
40 CONTINUE 


INTERCRANGE ANC ELIMINATE BY CCLUMNS 


CO 6C J=KP1/N 

T=A (Ms J) 

ACMs JV=ZEACKs J) 

ACKsJ)=T 

IF (CT.EG¢.Q.€00) GoTc 6C 

CO 5C I=KP1/N 

ACIs JI =AACIs JUFACI 2K) TT 

50 CONTINUE 
60 CONTINUE 
7C COATINLE 


CONC = C€1“NCRM CF A)*CAN ESTIMATE CF 1-NCRM OF AWINVERSE) 
ESTIMATE O2TAINED BY ONE STEP CF INVERSE ITERATION FOR THE 
SMALL SINGLLAR VECTCGR. THIS INVCLVES SOLVING ThO SYSTEMS 
CF EQUATIONS, CA~TRANSPCSE)*Y = E AND AwZ = Y WHERE E 
IS A VECTOR CF +1 CR -1 CHOSEN TO CAUSE GRCWTH IN Y. 
ESTIMATE = CT-NCRM CF 2Z)/C7-NCRM OF Y) 
00 100 K=1-N 

T=C.CCO 

IF (K.EQ.1) GCTC $0 

KM1=K=-1 


CO 8C I=1/KM1 
T=T+ACI eK) *WORK(I) 
&C CONTINUE 
9C EK=1.000 
IF CT.LT.0.000) EK=-1.000 
IF CACK,K).EC.0.CLCO) GOTC 16C 
WORKCK) =~ CEKtT) SACK, K) 
10C CONTINLE 
00 120 KB=1,/NM1 


a2 


AaAOoOO 


AAO aan 


OOO 


AAQAIMAAAAANAHANHAAAAAN 


KaN~KB 

720.000 

KP1sK%4 

CO 11C I®KP14N 

TST4 ACI, K) *WORK (CK) 

ile Ke, CONTINUE 

WORK(K) 7 

MEPIVCTCK) 

IF (CMCEQeK) GOTO 120 

TEWORK CM) 

WORKOCM) SWORK CK) 

WORK(CK) 3T 
120 CONTINUE 


YNCRM#C .O0C 
00.130 I#1eN 
YNORM2YNORM+ABSCWCRK CT) ) 
130 CONTINLE 


SOLVE AxZsy 
CALL SCLVECMAXVRSsNsAsWORKsPIVCT) 


ZNCRM2C 000 
DO 140 I#1/N 
ZNORMSZNORM#ABSCWORK C(I) ) 
140 CONTINLE 


ESTIMATE CCNOITION 


CONDZANCRM&ZNORM/YNCRM 
IF CCONCLT.1.000) COND21.000 
RETURN 


164 


15C COND=1.C00 


EXACT SINGLLARITY 


160 COND=1.C032 
RETURN 
ENC 
SUBROUTINE LOOKUPCPTRs»VARNUMsINDEXT/INCEX2) 
IMPLICIT INTEGER CA=Z) 
INTEGER PTRseVARNUMsINDEX1/INDEX2 


TAKES A POINTER TO A WORD IN THE FIRST SECTION CF COMMON 
/VAR/ ANDO RETURNS AN INTEGER CORRESPONDING TO THE ARRAY 

IN /VAR/ CONTAINING THE WORD AND INDICES INCICATING THE 
PARTICULAR WORD IN THE ARRAY. THE SUBRCUTINE ASSUMES SECTION 
1 OF /VAR/ IS CRGANIZEO IN A SPECIAL WAY AS FOLLOWS: 


SECTION 1 CF /VAR/ CONTAINS 5 TYPES CF ARRAYS: ROOM 

ARRAYS CARRAYS INOEXED BY RCOMs XXXXXCMAXRMS)), 

OBJECT ARRAYS CARRAYS INDEXED BY OBVECT ANC ROCM, 
XXXXXCMAXOBS/MAXRMS)), WALL ARRAYS CARRAYS INCEXEC BY WALL, 
XXXXXCMAXWLS)) 4 SICE ARRAYS CARRAYS INCEXEC BY SIOE ANC 

WALL XXXXXC2-MAXWLS))-AND VENT ARRAYS CARRAYS INDEXED BY VENT, 
XXXXXCMAXVTS)). ALL ARRAYS OF A GIVEN TYPE ARE STCREO 
CONTIGLCUSLY. THE FIVE TYPES CF ARRAY ARE STORED IN THE ORDER 
GIVEN ABOVE. 
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C 
C INPUT: 
C PTR -- A POINTER TC ONE OF THE WORDS IAN THE FIRST 
C SECTION OCF CCMMON /VAR/. 
C 
C OUTPUT: 
C VARNUM == THE NUMBER CCRRESPCNOCING TC THE ARRAY CONTAIK~ 
c ING THE WCRD IN THE FIRST SECTION OF COMPCN 
C /VAR/. TRE ARRAYS IN /VAR/ ARE NUMBERED IN TKE 
C CROER IN WHICH THEY ARE STOREC. 
C INCEX1 -- THE FIRST INDEX CF THE PARTICLLAR WORT IN 
C THE ARRAY. 
c INCEX2 -- THE SECONC INCEX CF THE PARTICULAR WCRD IN 
C TRE ARRAY. IF THE ARRAY IS 1 OIMENSICNAL,s 
C INDEX2 IS SET TO Ce NCTE THAT THIS SUBROUTINE 
C ASSUMES TFAT NO ARRAY IN /VAR/ HAS MORE THAN 2 
t CIMENSIONS. 
C 
SAVE 


SINCLUDE 9-DIMN.CMN 
SINCLLUDE 9,/IC6.CMN 


Pac 


4 


ow & Wn = 


INTEGER RMSIZE*CBSIZE-WLSIZE/SCSIZE/VISIZEsRMOFST-CBOFST, 


WLCOFST/SOCFSTs/-VICFST 
PARAMETER CRMSIZE = MAXRMS, OBSIZE = MAXRMS*MAXCBS,s 
“WLESIZE = MAXWLS, SOSIZE = 2*MAXWLS, 

VTSIZE = MAXVTS=, 
RMOFST = O, CBOFST = RMCFST + RMVARS*RMSIZE> 
WLOFST = OBOFST + OBVARS*0BSIZE, 
SDOFST = WLCFST + WLVARS*WLSIZE, 
VTOFST = SDOFST + SOVARS*SOSIZE) 


INTEGER OFFSET/ARRSIZ 


IF CPTR «GT. NVARS .OR. PTR oLTe 1) THEN 
WRITECIWTTY-10) PTR 
FORMATC*’ ILLEGAL POINTER IN LOOKUP. PTR=°,I5) 
ENC IF 
OEFSETE © RITRE = 1 
IF (CFFSET GE. VICFST) THEN 


VARNUM = RMVARS + OBVARS + WLVARS + SEVARS + 14 
CFFSET = CEFSET® - VTOFST 

ARKSIZ = VTSIZE 

INDEX1 = MAXVTS 

INCExe = C 


EUSE GF CXOFFSET .GE. SOCFST) THEN 


VARNUM = RMVARS + OBVARS + WLVARS + 1 
ersct = CPPSET = SOCFST 

ARRSIZ = SOSIZE 

INDEX1 = 2 

INDEX2 = MAXWLS 


ELSE IF COFFSET «GE. WLCFST) THEN 


VARNLM = RMVAKS + OBVARS + 1 
CPPSET 2°CFFSET =" WLOFST 
ARRSIZ = WLSIZE 
INDEXT = MAXWLS 
INCEXZ2 = C 

ELSE IF COFFSET .GE. OBCFST) THEN 
VARNLUM = 1 + RMVARS 
CFESET = CRRSET wo O08 CEST 
ARRSIZ = CBSIZE 
INDEX = MAXOBS 
INCEX2 = MAXRMS 

ELSE IF COFFSET .GE. RMCFST) THEN 
VARNUM = 4 


a2 


CFFSET = RMOFST 
RMSIZE 

MAXRWS 

0 


CRFSET 
ARRSI2 
INDEX4 
INCEX2 
ENC IF 


VARNUM @ VARNUM + CFFSET/ARRSTI2 
CFFSET = MODCOFFSET/ARRSI2Z) 
IF CINCEX2 .EQe O) THEN 
INDEX1 = CFFSET + 1 
ELSE 
INDEX2 = OFFSET / INDEX1 + 1 
INOEX1 = MODCOPFSET/INDEX1) + 1 
ENC IF 
RETURN 
ENC 
SUBROUTINE NEWSTPCHMAXsTIMEsX) 
IMPLICIT INTEGER (CA"2Z) 
REAL*S HMMAXe+TIMEsX(%) 


+ 


PART OF MOCULE INTERFACE 


THIS SUBROUTINE SHOULC BE CALLEO AT THE BEGINNING CF EACH TIME 
STEP TC PERFORM THE FOLLOWING INITIALIZATIONS: 
1o CALL INITIALIZATION ENTRIES FOR THOSE PHYSICAL SUBRCLTINES 
WHICH PERFORM INTERNAL INTEGRATIONS CTMPW1 AND TMPO2). 
@e SAVE THCSE VALUES FROM THE JUST COMPLETEC TIME STEP WHICH 
THE PHYSICS WILL NEEO IN THE CALCULATIONS FCR THE NEXT 
TIME STEP. 


AaOaranranananannn 


S$INCLLDE 9/DIMN.CMN 
S$INCLUDE 9-IC6CMN 
S$INCLUDE 9s VARE.CMN 
$INCLUDE 9-B8LCNGeCMN 
REAL*8 HsZKAC2) 
INTEGER WeRe Corl 
LOGICAL FIRST 
DATA FIRST/.TRUE./ 
G 1 
C H IS TRE SIZE CF THE TIME STEP WHICH HAS JUST BEEN COMPLETEC. 
CALL UNPACK(X) 
IF CeNOTe FIRST) THEN 
h = TIME = OLCTIM 
ELSE ) 
FIRST = FALSE. 
ENC IF 
OLCTIM = TIME 
CO 20 w21-NWALLS 
CO 1C 121-2 
ZKACI) = ZKAQUT 


ELSE 
ZKACI) = ZKAZZCWLINK(I-W)) 
ENC IF 
10 CONTINUE 
C 
C NOTE TRAT AT THE FIRST TIME STEP, SEVERAL CF THE ARGUMENTS IN THE 
C CALLS TO TMPW1I ANC TMPC2I ARE UNDEFINED. HOWEVER, NEITHER ENTRY 
C USES ANY OF THE UNCEFINEO ARGUMENTS AT THE FIRST TIME STEP. 
CALL TMPWIICWsZGWZ2ZZ0W) -HMAXo ZNWZZ CW) TWIT Ye ZKAC1) »ZKAC2), 
1 ZIWZZCW) A ZKWZZC10W) pA ZKWZZ C2,W) HD 
20 CONTINUE 
C 
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00 40 R=1,/NROOMS 
CO 3C O=1-0BJS(R) 
IF (CSTATECO-R) «NEw HEATNG) GO TC 2C€ 
CALL TMPO2TCMAXC8S*(R=-1)40-2G0ZZC0/R) -HMAX/ZNOZZ(60-R)s 
1 ZJCZZC0/RI/-ZKAZZORI-H-ZKOZZ¢0-R)) 
30 CONTINUE 
4C COATINUE 


C 
DO 60 R=1/NROOMS 
CO SC C=1,0BUS CR) 
ZRFZZPCCAR) = ZRFEZZ(0-R) 
ZHFZZPC(O/R) = ZHFZZ(0-R) 
TMCZZPC(O-R) = TMOZZCO-R) 
ZMCZZPC(C/R) = TKCZZ(0-R) 
ZKCZZPCCAR) = ZKOZZ(0-R) 
5C CONTINUE 
6C COATINLE 
C 
RETURN 
ENC 
SUBROUTINE PACKX(X) 
IMPLICIT INTEGER (A-Z) 
REAL*8 X(*) 
C 
C THIS SLBROLTINE PACKS THE SPARSELY DISTRISLTED VARIABLES FRCM 
C SECTION 1 CF /VAR/ INTC THE COMPACT VECTOR X WHICH IS SENT TO 
C THE NUPERICS. THE POINTER ARRAY INSYS IS USED TO SELECT WHICH 
C VARIABLES IN /VAR/ ARE PACKED INTO Xe 
Cc 


SAVE 
SINCLLOE 9/DIMN.CMN 
SINCLLDE 9/VAR6.CMN 
INTEGER INSYS 
COMMON /SYSPTR/ INSYSCMAXVRS 41) 
REAL*8 XINCNVARS) 
EQUIVALENCE CXIN/TELZR) 
INTEGER INCEX 
INCEX = 1 
C WHILE INSYSCINCEX)<>0 OC 
10 IF CINSYSCINDEX).EC.0) GO TO 2C 
XCINCEX) = XINCINSYSCINCEX)) 
INCEX = INDEX + 1 
¢O0 TC 10 
2C CONTINLE 
RETURN 
ENC 
SUBROUTINE SOLVECMAXVRSsN- Ar Be FIVOT) 
IMPLICIT INTEGER (A-Z) 
INTEGER MAXVRS-N/-PIVOT CN) 
REAL*8 ACMAXVRS/N)s/ECN) 


FRCM FORSYTHEs MALCOLM, ANC MOCLERs "COMPUTER METHCCS FCR MATHEMATICAL 
COMPUTATICNS"”, Pe. 55s 1977. 


SOLUTICN OF LINEAR SYSTEM, A®X = 8B 
DO NOT USE IF CECOMP HAS DETECTED SINGULARITY. 


INPLT.e 
MAXVRS = CECLAREC ROW DIMENSICN CF ARRAY CONTAINING A. 
N = CRCER OF THE MATRIX. 
A = TRIANGUALIZEC MATRIX CB8TAINEOD FROM DECOMP. 
B = RIGHT HANO SICE VECTOR. 
PIVOT = FIVOT VECTCR CBTAINEC FORM DECCMP. 
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OUTPUTes 
B = SOLUTION VECTCRe Xe 


Aoan 


INTEGER KBs KMT se NMI se KPT se Ie KoM 
REAL*8 T 
C 
C FORWARC ELIMINATION 
C 
IF (NeEQe1) GOTC 50 
NM1 = No-1 
00 20 K21/NKM1 
KP12K44 
MBPIVCT CK) 
T2B (CM) 
ECM) SE CK) 
BCK)2T 
CO 1C I=KP1/N 
BCIVSBCID+ACI-K) eT 
10 CONTINUE 
2C CONTINUE 
C 
C BACK SUBSTITUTION 
C 
00 40 KBs1/NM1 
KM12N"KB 
K=KM141 
PECKISBCKI/ACK eK) 
T=-B8(K) 
CO 3C I31,-KM1 
BCIVPSBCIIVFACIAK)*T 
30 CONTINUE 
4C COATINUE 
50 8¢(1)2B8(1)/A(1-1) 
RETURN 
ENC 
SUBROUTINE UNPACK(X) 
IMPLICIT INTEGER €A-Z) 


C 
C+ PART CF MQCOULE INTERFACE 
C 
REAL*8 X(¢*) 
THIS SLBROLTINE UNPACKS THE TIGHTLY PACKEO VECTOR X INTO THE 
SPARSE ARRAYS IN THE FIRST SECTION OF /VAR/ USING TRE PCINTERS 


IN THE ARRAY INSYS TO PLACE THE SUCCESSIVE COMPONENTS CF X 
INTC THE CCRRECT PLACES IN /VAR/. 


IOANOAN 


SINCLUDE 9-DIMN.CMN 
SINCLLDE 9/VAR6.CMN 
INTEGER INCEX 
REAL*8 XINCNVARS) 
INTEGER INSYS 
COMMON /SYSPTR/ INSYSCMAXVRS*41) 


C 
C NOTE TrRAT THE FOLLOWING EQUIVALENCE ASSUMES THAT TELZR IS THE FIRST 
C ARRAY IN CCMMON /VAR/. 

EQGLIVALENCE (XIN-TELZR) 


INCEX = 1 


WHILE INSYSCINCEX)<>0 CC 
10 IF CINSYSCINDEX).EC. 0 2 GC TO 20 


40 


XINCINSYSCINOEX)) = XCINCEX) 
INDEX = INDEX + 1 
GO TC 10 
20 CONTINUE 
RETURN 


ENC 

CHARACTER*(%) FUNCTION VARNAMCPTR) 
IMPLICIT INTEGER (€A-2Z) 

INTEGER PTR 


RETURNS THE ALFHANUMERIC NAME CF THE PTR°TE COMPONENT 
IN THE VECTOR CF VARIABLES CURRENTLY IN THE SYSTEM. 


C 
G 
C 
i 
C INPUT: 

C PTR ~~ THE INDEX OF A VARIABLE IN THE VECTCR OF 

C CF VARIABLES CURRENTLY IN THE SYSTEM. THE 
Cc CROER OF THE COMPONENTS IN THIS VECTOR IS 

C CEFINED BY THE ORDER OF THE POINTERS IN THE 
Cc ARRAY INSYS. 

Cc 

C 

C 

C 

C 

$ 


CUTPUT: 
VARNAM -~ STRING CF 10 CHARACTERS GIVING TRE ARRAY NAME 
AND SUBSCRIPTS CF THE GIVEN VARIABLE. 


INCLUCE 9/DIMN.CMN 

INTEGER INSYS 

COMMON /SYSPTR/ INSYSCMAXVRS+1) 

INTEGER VARNUMSINCEX1I¢ INDEX2 

CHARACTER AA 

CHARACTER*5 NAMESCRMVARStOBVARStWLVARS*#SDOVARS#+VIVARS) 

DATA NAMES/°TELZR°, °TELZ0% » °ZMLZZ2°r°TMLZ2°s “ZELZZ°,» 
et GUghs Wee ulale rs ZKLZ2Z°r °ZYLOZ “27 YL Ae ZYULMZ 77 
“ZYLS2°s °ZYLWZ° 7 °ZPRZZ°, °ZULZZ°s “TEPSM os °TEOSM’ 
“TMODS °s “TMOMS’s “TMCSS’ ro “TMOWS °° ZMDL% > 
* ZMML°** ZMOL‘%s® ZMWLE°s® ZMSL°s“AVLSM%s% WVLS%s 
* PPLR°s “TMOSM’ so “TMPSM’s “TMUSM’ 6 “TMDSM > “TEUSM’, 
“EPLSM°’, “BCXYS’ +» °TMDZF’ so “TMWZF oo °TMSZF So ST MMZF So? 
“IMOZF’s “FGPOR’s °ZK0Z2°¢ °ZM022°,7 
"TMOZZ° °TEOZZ° “ZHPZ2Z°* “TMPZ2Z°, 
“TEPZR s ZREZZ2cv ZHEZZ os CFCLOR TS 
“FQWOR’s °TMOZB8%s’ PHI’ “ACW2Z2°* “ZKW22°, 
“FOLWR’s, °FOPWR’s “FCLWO’/ 


=OMmON +4 OW & unm = 


C 
“CALL LCOCKUPCINSYSCPTR) -VARAUMsINDEXTsINCEX2) 
C THE FOLLCWING LINE GETS THE NAME OF THE VARIASLE ANC FILLS CUT VARAAM 
C WITH SFACES ON THE RIGHT. 
VARNAM(1:) = NAMES CVARNUM) (1:5) 
IF CINCEX1 «NE. O) THEN 
VARNAM(6:6) = °C% 
C WRITE CUNIT=VARNAM(7:37)/FMT=°C(11)°) INCEX1 
ENCOCECAAs17) INCDEX1 
VARNAMC(7:7) = AA 
+7 FORMAT(CI1) 
IF CINDEX2 .EC. 0) THEN 
VARNAM(8:8) = °%)’ 


ELSE 
VARNAMC&:8) = °¢’ 
'¥ WRITECUNIT=VARNAM(939)/EMT=°CI1)°) INDEX2 


ENCCOECAAs17) INDEXZ 
VARNAM(9:9) = AA 
VARNAM(1031C) = °)” 
ENO IF 
AL 


ANA AAOAAOOoOaInrna 


ENC IF 

RETURN 

ENC 

SUBROUTINE WRITCX/TIME-NTAICEVIC) 
IMPLICIT REAL#8 (A=H,s0"2) 

INTEGER IOEVIC 

REAL*®8 X(C#) 


CALLED BY MAIN» DEBUG» NWTNe JACB. 


IN FILE WOS281.FOR CFCRMERLY WRITL2) 
COCED BY NeBILLIKOPF, Le TREFETHENs AUGUST 1977 
MODIFIED BY MeRABUZZI43°10°81 


WRITES THE INPUT VECTOR X ONTO DEVICE IOEVIC CTELETYPE CR CISK). 
THE POINTER INFORMATION IN COMMON BLOCK /PCINTR/ DETERMINES WHICH 
ELEMENTS OF THE ARRAYS IN X ARE TO BE OUTPUT. 


SINCLLOE 9/DIMN.CMN 
SINCLLUOE 9-ICE.CMN 
SINCLLOE 9s VAR6.CMN 
SINCLLOE 9/BLONG.CMN 


AAaAaArIaanonaanaaonrnn 


aan an 


AAANra 


IF CISPOUT NEw. Q «ANC. IDEVIC «EQ. IWOSK) THEN 
CALL WRITOS 

RETURN 

END IF 


IF CICMCDE «NEw O «AND. IDEVIC EC. IWTTY) THEN 
ITABLE = 0 

CALL GRAFH2CITABLE)D 

IF CITABLE EC. OC) RETURN 

END IF 


CALL UNPACK(X) 

WRITE CICEVIC,100) 

WRITE (CIOEVIC,110) 

WRITE CIOEVIC,-120) TIMEs-TIMEPOLDTIMsSNTs CoO, “ALOCF’ 


OUTPUT BY RCOM NUMBER: 


00 10 KR#1/NROOMS 
WRITE CICEVIC+40) KRe TELZRCKR) -TELZOCKR) »ZMLZZCKR)D/TMLZZ(KR)» 
ZELZZCKRI/TELZZCKR) »ZHLZZCKR) AZKLZZCKR) sp ZYLOZCKR) 
2 ZYLOZCKR) + ZYLMZCKRIFZYLSZCKR) -ZYLWZCKR) A ZPRZZ (KR) 


OUTPUT BY CBJECT NUMBER WITHIN THAT ROOM: 


CO 1C KO#1/08JSCKR) 


OUTPUT OBJECT INFO IF OBJECT NCT BURNT“CUT CSTATE < 10), 
PLUME INFC IF CBYJECT PYROLYZING (STATE >= 3), 
FIRE RADIUS IF OBJECT BURNING CSTATE >= 4) 


IF CSTATECKC/KR) LT. 10) THEN 
WRITE CICEVIC,-60) KO-FOLCRCKC-KR) »-FQWORCKCsKR) -FQOPOR(KOSKR) » 
1 KOs ZKOZZCKOs4KR) 
2 ZMOZZCKC KR) pe TMOZZC KC AKR) -TECZZ CKOeKR) 
IF CSTATECKOsKR) «GE. 3) THEN 
CALL TENPLMCZKAZZCKR)s¢ZKOPYCKOZKR) -TEOZZ(CKO/KR) -TEPZRC KOK 
1R)-, TMCZZCKO/KRIs TMPZZCKCAKR)-TEPZ2Z) 
WRITE CIDEVIC,70) ZHPZZCKC/KR)s-TMPZZCKC,KR),-TEPZZ, 
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AOD 


an 


1 TEPZRCKOsKR) sZHFZZCKOsKR) - TMOZBCKOsKR) 
WRITE CICEVIC,80) 2ZRFZZCKO-KR) 
ENC IF 
Ehualr 
ent LF 


1C CONTINLE 
OUTPUT BY VENT NUMBER: 


CO 20 KV=1/NVEATS 
KRI=VLINK(1/KV) 
KRO =VLINKC2-KV) 
IF CVLINK(1/KV).2EC.0) THEN 
CALL FLOWCCO-CP,(VMAOUTt+VMAZZCKRO))/2.00/-Z28V2ZZ (KV) -ZHRZZCKRO), 
ZHTZZ2(KV) -ZHVZZC KV) op ZKAOUT SZ ZKAZZCKRO) -O.CC/ZRLZZ (CKRO) »-ZKAOUT, 
ZKLZZCKRC)-O.CO-ZPRZZC(KRC) -TEUZZ-TMOZZ-TMUZZ) 
ELSE IF (KROJEQ.C) THEN 
CALL FLOWCCO-CPsCVMAZZC(KRIDtVMACUTI/2.CO/ZEVZZCKVI-ZHRZZCKRID, 
TZHTZZCKV) pZRVZZCKV) »ZKAZZCKRID pZKACUTS/ZHLZZ2(KRI) -O.COsZKLZZ¢KRID, 
2 ZKAOLT/¢ZPRZZ(CKRID-0.0C/-TEUZZ-TMOZZ-TKUZ2) 
ELSE 
CALL FLOWCCOEsCPs CVMAZZCKRIDtEVMAZZCKROD)D/2.CCeZAVZZCKV), 
ZERZZCKRID¢ZHTZZCKV) -ZHVZZCKV) -ZKAZZCKRIDAZKAZZCKRC) -ZHLZZCKRID- 
ZELZZCKRO)D/-ZKLZZCKRID ¢ZKLZZCKRO) -ZPRZZCKRID-ZPRZZ¢CKRO), 
TEUZZ/,TMD22-TMUZ2) 
ENC IF 
2C WRITE CIDEVIC/5C0) KV-TEUZZ+TMUZZ-TMO2Z2 


Ao — 


(ano — 


OUTPUT 8Y hALL NUMBER AND SIDE: 
CO 30 KwW=1T-/NWALLS 
30 WRITE CIDEVIC-9C) CKW,-JSIDE-FQLWRCJSIOE-KW) -FQPARCJSIDEsKW), 
1 FQLWOCJSICE/KW) -ZKWZZCJSICE-KW)/-JSICE=1,2) 


WRITE CIDEVIC,110) 
RETURN 


4C FORMATO’ RCOM=°,120%3% oe T14e°TELZR=° pT PEV1 04 63Xe°TELZC=H°41PE11.4,7 
3Xe°ZMLZZ=° , TPEWT 4ST 14r °TMLIZE" oe TPEV1 042 
2Xe"ZELZZ=°o TPE11 4 2 Xeo “TELZZ=2° TP EWM 4 e/ 
T14,°ZHLZZ=°1 PEW 42 Xe °2ZKLZ2Z=°71PE11.4, 
Xe °ZYLOCZ=° TPE obo lo T14e°LYLOZ=°1PE11.4- 
Xe °ZYLMZE° oS TPE 4 SXe °LZVELS2=° TPE 4 e/ 7 
114, °ZYUWZ=° TP E11 49 3Xe°LZPRIZ=°, 1PE11.4) 
50 FORMATC’ VENT=%sIer%s’o T14e ° TEUZZHR" op APE11 0.47 3Xe °TMUZZ=E° 1 PEW1.42 
1 3X7°TMOZZ=°-1PE1164) 
6C FORMATO IX, °OBSF% elle so T14 re FOLOR=* pTFEV1 c4¢ 3X0 FOWOR=’7 
TPE1F eb 3X re °FOPORE °F APE eho 3X0 ° CICE e120") ° T14- 
“ZKOZZ=° 6 TPE11.4¢3Xe° ZMOZZ=°o TPEW10473Xe 
“TMOZZ=° oe APE e4e/ eT147°TECZ2Z=°-,1FE11.4) 
70 FORMATC1T14-° ZHPZ2=° 7 1PE1104735Xre°TMPZZ=° pT PET 04 
1 2X °TEPZZE° TPE bolo T14e°TEPZRE SS TPEV1 47 3X7 
1 “ZHFZZ=° 1 PE11.4¢3X7 °TMOZB=",1PE11.4) 
8C FORMAT(114,°ZRFZZ=°41PE11.4) 
90 FORMAT(’ WALL’ s Tar %o ro I17 so W147 FOL WARE’ TPEW1.4~ 
1 3X,°FCPWR=°,1PE11.4, 
2 Xe °FOLWCH oe TPE So / oe 1147 °LKW22=°7 1 PEW1.4) 
100 FORMATC’ *%) 
110 FORMAT(1X,70¢0°-°)) 
12C FORMAT(1X, °T=° rp FS es rSX er “OTH FE 3S Ko NTE oT 4s SXe 
1 “NITH=° IS /5Xe “ITA er L345 XrA4) 
ENC 


nM” Stat WO = 


Wn — 
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BLCCK CATA SCALER 
IMPLICIT INTEGER (A-2) 


DATA BLOCK INITIALIZES THE VALUES IN CCMMCN /SCALER/: 


$INCLLOE 9,/DIMN.CMN 


C 

CtH is 

C 

C 
“ 
2 
3 
4 
5 
é 
+ 
7 
& 
5 
1 

C 


REAL*8 TELZRA/TELZOA/ZMLZZA/TMLZZA/ZELZZA,s 


TELZZA/4ZHLZZAsZKLZZAS4ZYLOZASZYLOZASZYLMZA, 
ZYLSZAseZYLWZALZPRZZAeZULZZALTEPSMA,TECSMAs 
TROOSAs,TMOMSAsLTMCSSAcTMOWSAsZMOLA, 
ZMMLAsZMOLAsZMWLArZMSLAsAVLSMASWVLSA, 
PFLRAsTMOSMAsTMPSMAscTMUSMAsTMESMAsTEUSMA, 
EPLSMAsBOXYSAs TMCZFAsTMWZFAsTMSZFAsTMN ZF As 
TMOZFAsFQPORAsZKOZZAs4ZMOZZA, 
TROZZASTECZZAs,ZHPZZAsTMPZZAs 
TEPZRASZRFEFZZAsZHFZZAsFCLORA, 
FOWORAsTMCZBACPHIASAQWZZAZ,ZKWZZA, 
FOCLWRA,vFQPWRASFQLWCA 


C COMMON /SCALER/ CONTAINS CONSTANTS THAT REPRESENT THE SMALLEST 
C VALLE CF SIGNIFICANCE CF VARIASLES IN CCMMON /VAR/. 


HEWN 2 O + ON OH EW = 


C 


COMMON /SCALER/ TELZRACMR), TELZDACMR)s ZMLZZACMR), 


TMLZZACMR), ZELZZACMR)s» TELZZACMR)» ZELZZACMR)» ZKLZZACMR), 
ZYLCZACMR)» ZYLOZACMR)», ZYLMZACMR)s, ZYLSZACMR)s ZYLWZACMR), 
ZPRZZACMR)s ZULZZACMR)» TEPSMACMR)s» TECSMACMR)» 

TMOCSACMR)s, TMOMSACMR), 

TROSSACMR)s TECWSACMR)»s ZMCLACMR)s ZMMLACMR) +s ZMOLACMR), 
ZMWLACMR)» ZMSLACMR)s» AVLSMACMR)» WVLSACMR)s PPLRACMR) » 
TMOSMACMR)»s TMPSMACMR)s, TMUSMACMR)» THROSMACMR)» TEUSMACMR), 
EPLSMACMR) +, BCXYSACMR)s TMOCZFACMR)s TMHZFACMR)» TMSZFACMR)» 
TMMZFACMR)s TMCZFACMR) +» FOPORACMOsMR) + ZKOZZACMOsMR)» 
ZMOZZACMOsZMR) + TMOZZACMOsMR) + TEOZZACMOsMR) +» ZRPZZACMC SMR), 
TMPZZACMOsMR) + TEPZRACMOsKR) 4 ZREZZACMC MR)» ZRHFZZACMC MR) 
FOLORACMO/MR)s FQWCRACMC,MR)s TMOZBACMCsMR)s PHIACMOSMR)»s 
ACWZZACMW)s ZKWZZAC2Z0MW)s FOLWRAC2/MW) + FOPWRAC2-MW) 


FOL WOAC2-MbW) 


C COMMON /SCALER/ INITIALIZATION. 

INTEGER TOTOSs/WSIDESs/TOBM2 

PARAMETER CTOTCB = MAXOBS*MAXRMS, WSIDES = 2*MAXWLS) 
PARAMETER (TOBM2 = TCTCB - 2) 
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CATA TELZRA/MR*1.03/- TELZCA/MR*1,03/4 ZMLZZA/MR*1.0C-1/ 
CATA TMLZZA/MR*1,00-3/4 ZELZZA/MR*1.004/- TELZZA/MR*1.C03/ 
CATA ZHLZZA/MR*1.00-3/47 ZKLZZA/MR*GCLICC/, ZYLOZA/MR*1.00-3/ 
DATA ZYLCZA/MR*¥1.CD-4/7 ZYLMZA/MRE1.OCD"6/, ZYLSZA/MR*1.CO-4/ 
DATA ZYLWZA/MR*1.0074/4 ZPRZIZA/MR*1.00-S/¢Z2ZULZZA/MR*1.CO-3/ 
DATA TEPSMA/MR41.002/, TMODSA/MR*1.0°5/4 TMCMSA/MR*E1,60-7/ 
DATA TECSMA/MR*1.002/ 

DATA TMCSSA/MR*1.0°5/, TMCWSA/MR*1.D0°5/, ZMCLA/MR*1 .00-2/ 
CATA ZMMLA/MR*1.00-6/, ZMCLA/MR*1.00-2/, ZMWLA/MR*1 .00-2/ 
DATA ZMSLA/MR*1.00°5/, AVLSMA/MR*1.0C0/, WVLSA/MR*1.00-1/ 
DATA PPLRA/MR*1.01/, TMOSMA/MR*1,0-5/7 TMPSMA/FR*1 .0°3/ 
CATA TMUSMA/MR*1.0°3/, TMOCSMA/MR*1.D-2/, TEUSMA/MR*100.00/ 
DATA EFLSMA/MR*1.0-3/, BCXYSA/MR*1.0-6/4 


FOPCRA/TCTOB*1.02/ 


DATA 
CATA 
DATA 
DATA 
DATA 
CATA 
DATA 


ZKCZZA/TOTCB*.100/44 ZMCZZA/TOTOB*1.0-E/ + TMCZZA/TOTCB*1.0~-5/ 
TECZZA/TOTCB*1.02/4 ZHPZZA/TOTCB*1 G3 /-TMPZZA/TOTCS*1.0—-2/ 
TEPZRA/TOTOB*1.02/4 ZRFZZA/TOTCB*1.0~3/ ¢2HFZZA/TOTCB*1.0-2/ 
FOLCRA/TOTCB*1.03/4 FQOWORA/TOTCB*1.03/4 TMCZBSA/TOTCB*1.0-6/ 
PRIA/TOCTOB*5.Cc/, AQWZZA/MAXWLS*5.00/ 
ZKWZZA/WSICES*.1DO/-FOCLWRA/WSICES#1.02/ ¢FOPWRA/WSICES*1.02/ 
FOLWOA/WSICES*1.03/ 


hh 


AAA AAAAAAADAAAANAAAAAAAAAIAAANADADAAIDAADAAAAAAARAADAAANAIAANAANAAANAAAANAANA 


PAG 


ENC 


SUBRCUTINE GRAPH2CITABLE) 
CALLED BY hRIT 


CODEC BY JCHN RCCKETT, APRIL 1981. 
ADAPTEC FOR MARK VI BY ANDREW KAHNG, AUGUST 1982. 


PROVIDES A GRAPHICAL DISPLAY OF THE ROCM WITH SELECTED CATA 
SUPERIMPCSEQ. MCRE SOPHISTICATED THAN GRAPH1. AS YET COES 
NOT HAVE TKE ABILITY TO GENERATE HARD CCPY. 


INCLUDE “OIMN.INC’ 
INCLUDE “IC.INC’ 
INCLUDE “VAR.CMN’ 
INCLUDE “BLCONG.CMN’ 


CHARACTER*1 BLANK/CCTs/-CCLON,CHsSTARs/PRINT(71)-LW 
DATA BLANKsCOT-COLCAsChs STAR £° So 2 oo 8 oo "Goo RG 


PI = 4.*ATAN(1.) 
TOS E27 50 16 


THE NEXT ThC LINES SET THE SMOKE LEVELS AT WHICH VARIOUS 
SYMBOLS WILL BE USEC. THESE LEVELS ARE ARBITRARY AND MAY 
BE ARSITRARILY CHANGEC WITHCUT AFFECTING PRCGRAM PERFORMANCE. 


= 0.0C1 
ZYLS2 = 0.CC2 
FLH1 = 57324.1 


RROCM = SQRTCCZLRZXC1)*ZLRZYC1))/PT) 

DELL = RROCM/58&. 

DELRK = ZHR22(1)/15. 

MFUEL = IFIXCREALCZRFZIC1,-1)/0ELL + 0.5)) 

MFIRE = 0 

IFCABS(TMO22(6141))-ET.G.) MFIRE = IFIXCREALCZRFZZ¢1-1)/CELL + C.5)) 
IF CMFIRE «GT. MFUEL) MFIRE = MFUEL 

FLAMEH CABSCTEOZZ(61,1)/FLH1))**0.4 

NFLAME IFIXCREALCOZHRZZ¢(1)-ZHCZZ01-1)-FLAMEH)/DELH + C.5)) 


IFCNLAYR GE. NFLAME) NFLAME = NLAYR + 1 


IFCNFLAME.CEQC.NFUEL) NFLAME = NFUEL~1 
NTRANS = IFIXCREALCZHTZZ¢1) /0ELH + 0.5)) 
NSILL = IFIXCREALCCZHTZZ2¢(1)4+ZHVZ2¢01))/CELH + 0.5)) 


NFUEL = IFIXCREALCCZHRZZ(1)-ZHCZ2Z¢61-1))/0ELR + C.5)) 


IFCNFUEL.GT.14) NFUEL = 14 

NMASS = NFLEL+1 

NFUEL1 = IFIXCREALCCZHRZZ2¢141)-ZHOZZ61-1)4ZN0ZZ(1,1))/DELH + C.5)) 
IFCNFUEL1TSECNFUELINFUEL1 = NFUEL+1 

NLAYR = IFIXCREALCZHLZZ¢1)/CELH + C.5)) 

NLAYRT = Q 

IF (NLAYR.~GT.1) NLAYRT = NLAYR/2 
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DUM = ZKCZZ¢1) = TO 

WRITECIWTTY 410) ZLRZXCT)AZLRZVC1) -2LR2Z2619/0UM 

10 FORMATCSXs% LENGTH @°+F6e20"% M’¢ 3Xe" WILTH @°rFbees’ Ms 
1 3X7’ HEIGHT 2°rF6.2e° M%e3Xe° TAMB 3° F6e2e'% C%) 

WRITECIWTTY»30) 

CUM ® ABS(CTEOZZ2¢1-1)+*+TECZZ(271)) * 0.2001 

WRITEC6,20) ZTZZZ-0UM 

20 FORMATCSXe’ TIME 2°4F5e0e° SECo’ se 3Xr" HEAT RELEASE RATE 2°, 
1 VFED eer’ KW") 

WRITEC6,30) 

30 FORMAT? °%) 


N = 1 

DUM = ZKWZZ(141) = 10 

WRITEC6440) OUM 

AD FORMAT SX o TREE H RAK ARRAN RRS 
1 “Reem akeae TWALL 2°, FG.07° C wuwn’) 


SUM = ZKLZ2(1) = TO 
DUM1 = 100.*ZYLO2Z(1) 
1050 CONTINUE 


IF LINE TO BE PRINTED IS ABOVE SOFFIT» INCLUDES LEFT WALL 
TF LINE TO BE PRINTED IS IN HOT LAYER» INCLUDES SMCKE 
IF HOT LAYER ABOVE SOFFIT» NO SMOKE TO LEFT OF WALL 


IFCReLESNLAYR) THEN 
IFCZYLSZ¢1) LTeZYLS1) THEN 
0¢6 1100 I = 1,71 
1100 PRINTCI) = DOT 
ELSE 
IFCCZVLSZC12 LTeZYLS2) ANC. CZYLSZ2(1) 6GEe2¥LS1)) THEN 
00 1101 I = 1,71 
1101 PRINTCI) = COLON 
— ES - 
OG 1103 oh sitar 
T3G3 PRINTC(I) = OF 
ENC IF 
ENC IF 
TFCNSLESNTRANS) PRINT(14) = STAR 
IFCNLAYR»LEeNTRANS) THEN 
CO 417140 1 = 1,13 
C111C PRINTCI) = BLANK 
C ENC. IF 
C IFCN.GTeNLAYRT) THEN 
C 00511171+ 2) 24995 
C1111 PRINTCI) = BLANK 
C ENO IF 
C IFCNCEC.NLAYR) PRINTC6) = BLANK 
C IFCN.GESCNSILL“1)) THEN 
C O0N 4120p Ze te ded 
C1120 PRINTCI) .= BLANK 
ENC IF 
IFCNeGEsNSILL) THEN 
PRINT(C14) = STAR 
PRINTCCO) = BLANK 
ENC IF 


AA AOA AAAAAAAHAAIAAAAAAHGAAIAAAAAAAAANDAAAAAARAAEQAAN 


CAPTION SMCKE LAYER 


IFCNSEC.NLAYRT) THEN 
WRITECE4531) CPRINTCI)-1214,-18)-0UM, 
1 CPRINTCI),1=35-37)-CUM1, CPRINTCI)-I1=55,71) 
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ANAAAAAOAAYN 


GOTC 1C55 

ENO IF 

TFCNeECACNLAYRT#1)) THEN 
WRITECIWTTY/532) TMUZZ 61) -CPRINTC(I)-1214,-71) 
GOTO 1C€55 

ENC IF 
TFCCNNESNLAYRT) ORG CNeNESCNLAYRT4#1))) THEN 
WRITECIWTTYs521) PRINT 

GoTC 1C55 

ENC IF 


ELSE 


LINE TC BE PRINTED IS BELOW THE LAYER, PRINT PLUME COR FLAME) 
WIOTH CF PLUME ANDO HEIGHT OF FLAME REFLECT FIRE SIZE 


LW = BLANK 
IFCNeLENTRANS) LW = STAR 
IFCN.GE.NSILL) Lw = STAR 
CALL GFLUMECN/NFLAME/NFUEL/MFIRE-MFUEL/ZMO2ZZ( 141) sLb) 
GOoTc 1€55 
ENC IF 
1055 COATINLE 
N = Nt 
IFCNLT.15) GOTO 1050 
521 FORMAT(SX,71A1s°*") 
531 FORMAT(S5X-”° VENT FLOW “,S5A1-° TLAYER =°,F4.07° C °%s 
TOSAT eS OXYGEN 4° sF5.17° % °17At7"4~) 
S532 FORMATCIPE12.14° KG/S *458A1-°*") 
WRITECE419C) 
ADO FORMAT CS Xo (mR RRR HHH KIRK RARER KR KHIR KREME REKKEKER EK, 
OO SRESESESESOCSSOSSCSO CSS SESE SS SS a) 
DUM = CCFELCRC2-1)+FQWORC2-1)+FOPOR(2,1))3*6G.0C1 
DUM1 = ABS(CTMOZZ(1,1)) 
WRITECE- 200) CUM, DUM 
200 FORMATCI0X+"” OBJ. 2 FLUX =°s TPEVOe 2” KW/M*%2 °F 4Xe “BURN RATE =’, 
1 1PE10.27°% KG/SEC®%) 
WRITE CE, 30) 
122C CONTINUE 
wWRITECEs 220) 
220 FORMAT(’ TABULAR OUTPUT? CANS. N GR Y)%) 
REACCS»-230) ICHAR 
230 FOFMATCA1) 
IFCICHARJEC.°Y’) ITABLE = 1 
IFCICHAR.JEC.°Y*’) RETURN 
IFC CICRAR ECs ND eCRACICHARLEQCW” °°) RETURN 
GCTC 1220 
RETURN 


ANAADAAAAAAAADAAAAADAAANAANAADAAAAAAAAAAGDAAGAIAAAAAANA 


2/1C/83e--THIS MCOULE WAS CISABLED BY JOHN LUTZ ANC JAY MIRASOL 
AT THE REQUEST OF HENRI MITLER., 


AOA 


ENC 


an 


SUBROUTINE GPLUMECN/-NFLAME-NFUELSMFIRESPMFUEL/ZFMCZ/LhW) 
CALLED BY GRAPK2 


CCCED GY JCKN RCCKETT, APRIL 1981. 
ADAPTEC FOR MARK VI BY ANDREW KAHNGs AUGUST 1982. 


AAAAMAAN 
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C CALLED BY GRAPRKW TC CONSTRUCT A REPRESENTATION CF THE BURNING 
C OBJECT AND ITS PLUME ON THE TERMINAL SCREEN. 
C 


$INCLLOE 9-/DIMN.CMN 
SINCLUCE 9-ICECMN 
SINCLLOE 9,VAR6.CMN 
S$INCLUDE 9/BLCONG.CMN 
C 

CHARACTER*1 LWePRINT(58) 

CHARACTER*1 STAR/O1/BLANK/ EXCL PLUMESFIRE 

DATA STAR*sO1/BLANKsEXCL/PLUMEZSFIRE 
4 (fame Lille Wk iad, Oe at fetes 


MFI = MFIRE 
IFCMFIRE.GT.48) MFI = 48 
MPL = MFUEL 
IFCMFUEL.GT.48) MFU = 48 
00 :101C I = 1457 

1010 PRINTCI) = BLANK 
PRINT(C5&8) = STAR. 
FM = FLCATCMFI) 
FO = FLCATCMFU) 
ML = IFIXCCEM41)*0.5) 

C MR = IFIXCEM*0.5) <-- THIS OCESN’T COMPILE 

MOL = IFIXCFO*0.5) 
MOR ® ITFIXC(FO"1)*%0.5) 


IFCNeLTeNFLAME) THEN 

IFCML.EC.0) GOTO 1100 

IFC(ML.NELO) THEN 

LL = 36-ML 

LR = 35-ML4¢MFI 

00 103C I = LLA-RR 
1030 PRINTCI1) = PLUME 

ENC IF 

GOTO 1100 


ELSE 

IFCCNGGEeNFLAME) »ANCeCNGLTNFUEL)) THEN 

IFCML.EQC.0) GOTC 11C0 

IFCML.NE2O) THEN 

LL = 36-ML 

LR = 35-ML4¢MFI 

DO 104C I = LLARR 
1040 PRINTCI) = FIRE 

ENC IF 

GOTO 11C0 

ENC IF 


IF(NJEC.NFUEL) THEN 

LI = 35=-MOL 

LR = 35+MOR 

PRINTCLI) = EXCL 

00 105C I = LI41/LR-1 
1050 PRINTCI) = C1 

PRINTCLR) = EXCL 

GOTO 11CO 

ENC IF 

ENC IF 


IFCNJ EC. CNFUEL4#1)) WRITECIWTTY-100) LWsZM0Z 
IFCN.GTe CNFUEL 419) WRITECIWTTY-110) Lw 
RETURN 
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1100 wRITECé,70) LwWsPRINT 
RETURN 
70 FORMAT(18X4A1/58A1) 
10C FORMATC18X+A1-26X4° FUELZ=°, F6.27% KGO°r 16X07 °X") 
110 FORMATCTEX+A1457X4 °°") 
ENC 


SUBROUTINE ERFDECTIME) 
IMPLICIT IATEGER (A~Z) 
REAL*8 TIME 


THIS SUBROUTINE IS CALLEC BY FUNCT TO EVALLATE THE FUNCTIONS 
ASSCCIATED WITH THE ROCT FINDING ANO DIFFERENTIAL EQUATIONS. 
ERFCE (EVALUATE ROCT FINOING ANC DIFFERENTIAL EQUATIONS) CALLS 
THE PHYSICAL SUBROUTINES PASSING INPUT VARIABLES FRCM THE FIRST 
SECTION GF COMMCN /VAR/. THE CUTPLT CF EACK PHYSICAL SUBRCLTINE 
ASSCCIATED WITH A RCOT FINCING EQUATION IS PLACED INTO THE SECCNO 
SECTION CF /VAR/. TRE OUTPUT CF EACH PHYSICAL SUBRCLTINE 
ASSOCIATED WITH A OCIFFERENTIAL EQUATION IS PLACED IN THE THIRD 
SECTION CF /VAR/. SINCE THE ARRAYS USEC TC STCRE INPUT VARIABLES 
ARE ISCLATEC FROM THE ARRAYS USED TC STCRE CUTPUT VARIABLES, 

THE ORCER IN WRICH THE FUNCTIONS ARE EVALUATED IS NCT SIGNIFICANT. 


AAAAMAAGAAANAAAANA 


SINCLUOE 9-/DIMN.CKN 
SINCLUDE 9-8LCNG.CMN 
SINCLUDE 9s ICECMN 
SINCLLOE G9-VARGE6.CMN 
INTEGER FIXED/-REGIM1I/-REGIMC/-REGIM3 
PARAMETER CFIXEC=O-REGIM1=1,REGIM2=2,REGIM2=3) 


INTEGER FTELZR-FTELZD-FZMLZZ/FIMLZZ/FZELZZ, 
FTELZZ-FZHLZZ/FZKLZZ2e¢FZYLCZ/FZYLOZ/FLZYLMZ, 
FZYLSZ/FZYLWZ-FZPRZZ-FZULZZ-FTEPSMsFTECSM, 
FTIMODSs/FIMCMSsFIMOSSsFIMOWSsFZMOLs, 
FZMMLeFZMCL se FZMWL se FZMSL se FAVLSMsZEWVLS, 
FPPLRsFTMCSMsFIMPSMsFTMUSM,FTBCSMsFTELSMs 
FEPLSMsFBOXYSsFIMOZFe-FIMWZF -FIMSZFsFIMMZF, 
FIMOZFsFFQOPORsFZKOZZ/¢FZMOZZzs 
FIMOZZs¢FTECZZ/FZHPZZ/,FIMP2ZZ, 
FIEPZR/FZREZZ/FZHFIZZ,FFOLCRs 
FFQCWORsFTMOCZBsFRPHI-FAQKZZ-FZKWZZ, 
FFQLWR,-FFQCPWRe-FFOLAD 


+OMmN + OU BWP wD 


COMMON /VARYNG/ FTELZRCMR) sFTELZOCMR) -FZMLZZ(MR)-FTMLZZ (MR), 
FZELZZ(MR)sFTELZZCMR) -FZHLZZCMR)FFZKLZZCMR), 
FZYLOZ(MR),-FZYLOZ(CMR) -FZYLMZCMR)-FZYLSZCMR), 
FZYLWZ(MR)-FZPRZZCMR) -FZULZZCMR)ISFTIEPSMCMR) » 
FTECSM CMR) sFTIMCOSCMR) -FTMCMS (MR) -FTMOSS CMR), 
FTIMOWS CMR) FZMCL CMR) -FZMML CMR) s FZMOL CMR)» 
FZMWLOMR)-FZMSLOMR) -FAVLSMCMR) -FWVLS CMR), 
FEPPLRCMR) -FIMOSMCMR)sFIMPSMCMR) -FTIMUSH CMR), 
FIMOSMCMR)sFTEUSMCMR) -FEPLSMCMR) -FBCXYSC(MR), 
FTIMDZF(MR)/FIMWZF CMR) sc FIMSZF CMR) os FT MMZFE CMR)» 
FIMCZFC(MR)-FFCPCR(MO,MR) -FZKOZZCMC/MR)» 
FZMCZZ2(MO-/MR) cs FTMCZZCMCsMR) sc FTECZZCMOséMR)» 
FZHPZZ(MO/MR) sc FTIMPZZOMC/MR) -FTEPZRCMCsMR)» 
FZRFZZOMOs/MR)sFZLZHEFZZCMCsMR) ps FFQLORCMOSBR), 
FFQWORCMCsMR) sc FTMCZBCMCeMR) sFPHICMCsMR) 

FAQWZZ (MW) sc FLZKWZZC2eMW) -FFCLWRC2eMW) -FFQPRARCOeMW) 
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ut Who +O On au & iA fp) = 


Oon 


AAAAGANDNAAXAAAAAMYM 


> 


6 FFQLWCC2-KW) 


INTEGER ReCerW 


TMNET: 
CO 10 R=1/NROOMS 
IF CFZPRZZ(R)©EQeREGIM1) THER 
CALL NETMASC(CP/ZKAZZOR) -TELZZ(R) s TMOSMCR) s TMLZZCR) > TMCSMCR) gs 
1 TMUSMCR) s TMNETCR)) 
END IF 
10 CONTINLE 


CO 30 K=1/NROOMS 
IF CFZMLZZ(R)©EGCAREGIMI) OZMLZZCR) = TMLZZ(R) 
IF CFZELZZ(R)EQeREGIM1) CZELZZCR) = TELZZCR) 
IF CFZMOLCR)-EQeREGIM1) 


1 CALL TCO2MCTMCOSCRI «TMCSMCR) ss TMPSM (CR) TMOZFE CR)» 
1 OZMCL(R)) 

IF CFZMMLCR)EQeREGIMI) 
1 CALL TMNXMCTMOMSC(R)-TMMZF CR) -CZMMLC(R)) 

IF CFZMOLCR).EQ.REGIMI) 
1 CALL TOXYMCBOXYSCR) -TMOSMCR)»TMPSMCR) -TMOZFC(R), 
1 DOZMOLCR)) 

(IF CFZMWLOCR) EQ.REGIM1) 
1 CALL TH2CMCTMOWSCR) -TMWZF CR) -OZMbL CR) D 

IF CFZMSLCR)-EQeREGIM1) 
1 CALL TSUTMCTMOSSCR)s-TMSZFCR)D -DZMSLC(R)) 


CO 2C O=1-,0BJS CR) 
IF CFZMOZZ¢(C +R) A EQeREGIMI) OZMCZZ(C/R) = TMCZZC0-R) 
IF CFZRFZZ(O-R)-EQeREGIM1) THEN 
CALL SPREACCAFIRECC/R) -ZKFZZ/,ZRFZMCO/R) AZRFZOCCAR)» 
1 PHICOsR) -ZRFEZZ(CCARI-OZRFZZC OR) ) 
ELSE IF CFZRFZZ(0/R)2EQeREGIM2) THEN 
CALL PULRADCZRFEZMCO,ZR) AZRFZOCO/R) -ZTIGCO/R) -TIME, 
1 ZRFZZC(C-R)) 
ENC IF 
20 CONTINUE 
30 CONTINUE 


00 40 w=1/NWALLS 
IF CFAQWZZ(W) EQ.REGIM1I) 
1 DAQWZZCW) = FQOLWOC1/W) + FQOLWOC2-W) 
4C CONTINLE 


RETURN 

ENC 

SUBROUTINE EVALFPCTIME) 
IMPLICIT INTEGER (A-2) 
REAL*8 TIME 


PART OF MOCULE INTERFACE 


THIS SUBROLTINE CALLS THE PHYSICAL SUBROUTINES TO EVALUATE THE 
FUNCTICN ASSCCIATEC wWIThk EACH FIXEC POINT EQUATION. 

THE INPUT VARIABLES FCR THE PHYSICAL SUBROLTINES ARE TAKEN 

FROM TRE FIRST SECTION CF /VAR/. THE OUTPLT OF EACH PHYSICAL 
SUBROUTINE IS FPLACEC IN THE APPROPRIATE ARRAY IN THE FIRST 
SECTION CF /VAR/. SINCE THE OUTPUT CF THE PHYSICAL SUBROUTINES 
IS PLACED INTO THE SAME ARRAYS FROM WHICH THE INPUT TO THE 
PHYSICAL SUBROUTINES IS TAKEN, THE ORDER OF FUNCTICN EVALUATION 
IS IMPCRTANT ANC PRCPER ORDERING CAN SIMPLIFY THE PROBLEM 

BY VARIABLE ELIMINATION. THE CRDER OF EVALLATION IS DETERMINEC 
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C BY THE ARRAY EVCRD. 
C 
$INCLUODE 9-DIMN.CMN 
S$INCLUCE 9,VAR6.CMN 
$INCLLDE 9-/B8LONG.CMN 
S$INCLLOE 9-ICE.CMN 
INTEGER FIXED/-REGIMT/REGIM2,-REGIM3 
PARAMETER (CFIXEC=O0-REGIM1=1,REGIM2=2-REGIM2=3) 


INTEGER FTELZReFTELZDOsFZMLZZ/FIMLZZ/FZEL2Z2s 
FYELZZ/FZHLZZ/FZKLZZ/FZYLOZ-FZYLOZ/FZYLMZ, 
FZYLSZ/FZYLWZeFZPRZZ-FZULZZ¢FTEPSM/FTECSM, 
FIMOCOSsFTMOMS/FTMCSS/FIMOWSsFZMOLe 
FZMML/FZMOLFZMWLE oe FZMSLe/FAVLSBM,SFWVLS, 
FPPLReFTMOSMsFTIMPSMsFTMUSMeFTMOSM/FTEUSM, 
FEPLSM-/FBCXYS/FIMDZF/FIMWZF/FIMSZF/FIMMZFs 
FIMOZF/FFQPOR/FZKCZZ¢FZMClZZ¢ 
FIMOZZ/FTEQZZ/FZHPZZ-FIMPZ2Z, 
FTEPZRsFZRFZZ/FZHFZ2Z-FFOLCR, 
FFQWOR/FIMOZBsFPHIsFAQKZZ-¢FZKW2Z, 
FFQLWReFFOPWR-FFCLAD 


+OOON Ft Qu fan 


COMMON /VARYNG/ FTELZRCMR)-FTIELZOCMR) sc FZMLZZ(MR)-/FIMLZZ CMR)» 
FZELZZQMR) oFTELZZCMR) sFZHLZZCMR)D-FZKL2ZZ2¢0 MR)» 
FZYLOZ (MR) sFZYLOZCMR) sFZYLMZCMR) -FZYLSZOMR) » 
FZYLWZ(MR)FZPRZZCMR) -FIULZZC(MR)-FTEPSMCMR)» 
FITECSKECMR)sFIMCOS CMR) sFTMCMS CMR) -ETMOSS CMR), 
FIMCWS CMR) sFZMOL CMR) FIMMLCMR)FZMCLCMRR)» 
FZMWLOMR) s FZMSLOMR) ce FAVLSMCMR) ZFWVLS CPR), 
FFPLRCMR) sFTMOSMCMR)FIMPSMCMR) -FIMUSM CMR), 
FIMOSMCMR),FTEUSMCPR) sFEPLSMCMR) »FBCXYS (MR) » 
FIMOZFCMR) -FIMWZFCPRR) -FIMSZFCMR) »-FIMMZF CMR)» 
FIMOZF CMR) cs FFOPORCMO-MR) cFZKOZZ(MO-MR), 
FZMOZZ(MOsMR) sc FT MOZZCMOeMR) sFTECZZCMOe MR), 
FZHPZZ(CMOeMR) cFIMPZZOMCeoMR) cFIEPZRCMCOMR) 
FZRFZZCMOeMR) oFZHFZZ CMC MR) cFFOLORCMOsMR) 
FFQWOK(MOseMR) sc FTIMOZBCMCoMR) sFRPHICMOSMR)» 

FAQWZZ (CMW sFZKWZZ0ceMW) -FEOLWRC2,MW) pFFOPARCCeMW) 
FFQLWC(2-¥W) 


AOU FWA +O wn aw & Wr = 


INTEGER EVSETS 
C EVSETS IS TRE NUMBER CF. EVALUATION SETS IN THIS SUBROUTINE. 
PARAMETER CEVSETS = 42) 
C EVORO IS TRE ARRAY KHICHK GIVES THE CRDER IN WHICH THE EQUATIONS 
C ARE TO BE EVALUATED TO ACHIEVE MAXIMUM VARIABLE ELIMINATION. 
INTEGER EVCROCEVSETS+1) 
REAL*®8 Ke SUMsSUMICEsMAXRMS) sc FQeTMOCT so FCIPWs TMOMI ec TMCS1, 
1 THCWTFZAVLIsWVLIsZPTPLRI-SIGN/-TEUsTRC/TMUsTMPLU1,BOXY1, 
2 TEPZZ/-ZHL/-~ZKArZUL-COCFLO-H2CFLC/SUTFLCsMNXFLOsCXYFLO 
INTEGER IeReGreOeowe Ve R1eR2eSIDE 
C SPACE SAVING EQUIVALENCE 
EQUIVALENCE CFQsTMOCIT-FCIPWeTMCMIs TMOST se TMCWTsAVLI-WVL1, 
1 ; PIPLRI,-TEUsTMPLU1,BOXY1/TEPZZ) 
DATA EVCRD/17? 2c 75 06 2809070010012 713019015 414732018 2 207 
1 31 2325 dhs tot othr 3S oleh tlt d8rhr dle d0t7 3b 29s 
@ 2&7407304¢63726742716739-0/ 


C 

CoM “seSiIZEcCF) THE CURRENT TIME SEeP 
H © TIKEse OLOTIM 

C 
130 

C 


C MAIN LCOP BEGINS HERE: 
51 


AAA 


aOaogn 


an 


an ao aon 


an 


108 Teens 

IF CEVCROCI) wEG. OF RETURN 

GO TO (20440,66480-100412071404160-180-200,220-240, 
2907230726074004430747075007530-5607630-6607690-730, 


tab NW) = 


1176-1200-1220-1260) EVCROCI) 


FIXED POINT EQUATIONS: 


TELZRs 
20 00 30 R=14NROOMS 
IF CFTELZRCRI.EQeREGIM1) THEN 


NOTE TRAT IN THE FOLLOWING CALL WE ASSUME TRAT EACH ROOM HAS 
1 WALL WITH SICE 1 INSICE AND SIDE 2 OUTSICE. 
hos R 
CALL RONLCZKAZZOCRIAZLRZXCRIAZLRZYCRIZAVLSMCR) A FQPWRCT AW)» 
PPLRCR) -ZHLZZCRIFAZKLZZCRIAZKWZZC1/W) -ZULZZC(R) > 
2 TELZRCR)) 
ENO IF 
30 CONTINUE 
GO TO 10 


TECZEs 
40 00 50 R=1/NROOMS 
IF CFTELZOCR).EQ.REGIM1) THEN 


NOTE TRAT IN TKE FOLLOWING CALL WE ASSUME TRAT EACH ROOM HAS 
1 WALL WITh SICE 1 INSICE AND SIDE 2 OUTSICE. 
w= R 
— CALL CNVL1CZLRZXCRIFZLRZYCR) A AQWZZ CW) SAVELSMCR) AFOLWOCT OW)» 
1 WVLSCRI-TELZZCR) sZELZZCRI-ZHLZZCRI-TELZCOCR)) 
ENC OLE 
5C CONTINUE 
GO TO 1¢ 


TMLZZ: 
60 DO 70 R=1-NROOMS 
IF CFTMLZZ(R)Y.EQAREGIM1) THEN 
CALL TMSLCVMAZZCRI¢ZHRZZCRIFZLRZXCRIZZLRZYCRI A TMPSMCRD, 
1 TMUSMCOR) os ZMLZZCR) »TMLZZCR)) 
ENC IF 
7C CONTINUE 
GO TO 1¢ 


TELZZ: 
80 DO 90 R=1/NROOMS 
IF CFTELZZ(R)sEQ.REGIM1) THEN 
CALL POWLCZHRZZ(R)/-ZLRZXCR)/ZLRZY(R) pTELZOCR) »TELZRCRD) > 
1 TEPSMCR) -TEUSMCR) »ZELZZ(R) sp TELZZCR)) 
END IF 
90 CONTINUE 
GO TO 10 


ZHLZZ:3 
100 00 110 R=1/NROOMS 
IF CFTELZZ(R)-EQeREGIM1) THEN 
CALL LAYOPTCCP+VMAZZCR) ps ZHRZZCR)AZKAZZCR) A LLRZXCR) » 
1 ZLRZYCRI-ZELZZ(R) -ZHLZZ(R)) 
ENC IF 
110 CONTINLE 
GO TO 10 


ae 


760779078204 850788079104940-97041000,1030/10E0-1090,112C, 


an 


aa 


ZKLZ2Z: 
120 00 130 R=1-NROOMS 
IF CFZKLZZ(R)LEQ.REGIM1) THEN 
CALL TMPLCZKAZZCRI-CP-ZELZZ¢R) 
1 ZMLZZCR)/ZKLZZ¢R)) 
ENC IF 
13C CONTINLE 
GO TC 1C 


ZYLOZ: 
140 DO 150 R=1¢NROOMS 
IF CFZYLCZC(R).EQ.REGIMI) THEN 
CALL CXYCNCCZMOLCRI-ZMLZZ(R)-ZYLCZC(R)) 
ENO IF 
15C CONTINUE 
GO TO 1C 


ZYLOZ: 
160 00 170 R=1/-NROCKS 
IF CFZYLOZCR).EQ.REGIM1) THEN 
CALL CXOCNCCZMDLCR)/ZMLZZ¢RI-ZYLCZCRI) 
ENO IF 
170 COATINLE 
GO TO 1C€ 


ZYLMFZ: 
180 DO 190 R=1-NROCKS 
IF CFZYLMZCR).EQeREGIM1) THEN 
CALL MNXCNCCZMML CR) -ZMLZZ0R) ee ZYLMZC(R)) 
ENO IF 
190 COATINLE 
GO TC 1C 


Pale $b AF 
20C 00 210 R=1-NROCMS 
IF CFZYLSZ(R)-EQeKREGIMNI) THEN 
CALL SUTCNCCZMSLOR)/ZMLZZCR)-ZYLSZCR)) 
ENO IF 
21C CONTINLE 
GO TO 1¢ 


2VUNZS 
22C 00 230 R=1/NROCMS 
IF CFZYLWZ(R)EQeREGIM1) THEN 
CALL WTRCNCCZMWLOR) »ZMLZZ20R)-ZYLWZCR)) 
ENC IF 
230 COKTINLE 
GO TO 1C 


ZULZZ: 
240 CO 280 R=1-NROOMS 
IF CFZULZZ(R)EQeREGIM1) THEN 
GO TC (250-260-270), VERSUNC2) 
USE ABSRB1,- 2 3 AS INCICATED BY VERSUNC2). 
250 CALL ABSREICTIME-2ZULZZ¢(R)) 
€C TC 28C 
260 CALL ABSRB2CZYLSZ(R)-ZULZZ(R)) 
GO TC 28C 
27C CALL ABSRESCZKLZZCR)-ZYLCZCRI-ZYLMZCR)-ZYLOZCRIAZYLSZ(R)- 
1 ZULZZ¢R)) 
GO TC 28C 
ENO IF 


as 


ano 


an 


280 CONTINUE 
GO TO 1¢ 


FOLCR: 
29C CO 320 R=1/NROCMS 
CC 31C 0=1-08NS(R) 
IF CFFCLOR(CAR)EQeREGIM1) THEN 
IF CANGH(O-R) oGT. 45.00) THEN 
WRITE CIWTTY,/300) 
300 FCRMATC’ RNLV HAS NOT YET BEEN INCORPORATED INTO THE CODE.”) 
STCP 
ELSE 
CALL RNLHCSTATECO-R) -ZHOZZCO/R) p-ZHRZZCRIAZLRZXCRIFZLAZYCR), 
ZUFZZ¢ZXOZZCOeRIAZYCZZCO/RD/-ZEFZZ(C/RI/-ZHLZZCR), 
ZKLZZCRIZZREZZCO/R) -ZULZZOCR) -FOLOR COR) ) 


~w— 


ENC IF 

ENC’ IF 

310 CONTINUE 
32C CCATINLE 
GO TO 1C 


FQWCRs: 
330 CO 350 R=1/NROCMS 
CO 34C O=1,0BNS(R) 
IF CFFOQWOR(OsR) EQeREGIM1) THEN 
CALL RNWOOZCSTATECOsR) -ZHOZZCOFR) sp ZKHRZZCRIAZKAZZCR)»@ 
ZLRZXCRIFZZLRZYCR) »pZUFZZ/-ZXOZZCO/R) A ZYOZZCOFR), 
ZHFZZCO/R) -ZHLZZCRI A ZKWZZ201-R) -ZREZZC0-R) 
ZULZZC(R)-FQWOR(C.R)) 


& Ut 


ENC IF 
34C CONTINUE 
35C CONTINUE 

GO TO. 1¢ 


FQPOR: 
360 00 390 R=1sNROOMS 
CC 3€C O=1-0B8BNSCR) 
IF CFFCPOR(CGAR).EQeREGIM1) THEN 


SUM = C.00 
DO 270 02=1-0BNS(R) 
Fe = C.00 


IF CSTATECO2-R) EQ. FLAME) 

CALL RNPOOTCSTATECCARI«CR-1) *MAXOEStO2-ZKFZZ, 
TMOZZPCC2]-R) oe ZHFZZPCC2-R) op ZHCZZ(C2-R) -ZHCZZ(C AR), 
ZHRZZCRIFSZREZICO?S/R)I A ZRFZICC/RIAZUFPZZ/-ZxXCZZCC2,KR), 
ZXCZZCO“/RI-ZYOZZCO2-R) oe 2VYOZZ CCAR) -TMCZZ¢C2-R), 
ZHFZZCO2@sRI-ZHLZZCR)-ZHPZZ(C2-RI-ZMCZZCCZAR)» 
ZRFEZZCO2,R) pAZRFZZCC oR) A FQ) 

SUM = SUM + FE 
FO = 0.06 
e ANC. O-NE.O2) 

CALL RNFFO2CZKFZZ-ZHO2Z2Z(02/R) ZHOZZ(CO-RI-ZHRZZ(R)> 
ZRFZICOsCR) AZREZICO2-R) op ZUFZZ¢ ZXCZZ(C2eR)I-ZXCIICOC OR)» 
ZYOZZCO2-RIF-ZYOZZCOsRI oe ZHFZZCO2eRI oA ZHFZZCO-RI/-ZHLZZ(R), 
ZRFZZCO2-R)/ZREZZCO/R) A FQ) 

SUM = SUM + FC 

370 CONTINUE 

FQFCR(C/R) = SUM 
ENC If 
380 CONTINUE 
39C CONTINLE 
60 Tc 1C 


On uN & (an) 


in & in — = 


54 


an 


an 


an 


ZKOZZ: 
400 00 420 R=1,NROOMS 
CO 410 O=1-0B8 SCR) 
IF CFZKCZZ(04R)-EQeREGIM1) THEN 
CALL TMPO2CRsEBCLOsR) « CRO1) &MAXCBS#C/ZHCZZ¢C/RI A ZHRZZCR), 


2 ZKAZZCRIFZIOAZZ¢FQCLOR (CR) pc FQPCRICAR) sg 
3 FQOWORCOsR) -ZHLZZCR)-ZKLZZCR)I/-ZKOZZ¢60-R)- 
4 ZKOZZ(C0-R) ) 

ENC IF 


410 CONTINUE 
420 CONTINLE 
GO TO 10 


TMOZZs 
430 D0 460 R=1-NROCMS 
CO 480 0=1-0BUS(R) 
IF CFTMCZZ(C/R).EQ.REGIM1) THEN 
CALL PYROCQVAPC(OCsR)-ZRFEZMCCAR)-PHICC/R)ZMCZZ(C,R), 
1 ZRFZZCOsR) «¢ TMOZZ(C-R)) 
ELSE IF CFTMOZZ(0-R)EC.REGIM2) THEN 
WRITE CIWTTY,-44C) 
440 FORMATC’ BFIR KAS NCT YET BEEN INCORPORATED INTC THE CCOE. 
1) 
STOP 
ENC IF 
450 CONTINUE 
460 CONTINUE 
GO TO 1¢ 


NEQ7IZ: 
470 DO 490 R=1/NROCMS 
CO 4&C 02=1-084S(R) 
IF CFTECZZ(CCe/R).EQREGIM1) THEN 
CALL CHEMC(CCPe/GFCOsR) -CVAPCO-R) -ZKAZZCRIAZKCPYCC/R)» 
ZRFZMC(CrR) es TMOZBCO-R) pe ZHPZZCO/R)I-TECZZ(C-R)) 


NN) 


ENC IF 

480 CONTINUE 
490 CONTINLE 
60 TO 16 


ZHPZZ: 
500 DO 520 R=1/-NROOMS 
CO 51C 0=17-0B84S(R) 
IF CFZRPZZ(C/RYLEQLREGIM1) THEN 
CALL PLMHTC(ZHOZZ(O-R)-ZHRZZCR) -ZHLZZ¢(RI-ZHPZZ(0-R)) 
ENC IF 
51C CONTINUE 
S2C CONTINUE 
GO TO 1C 


TMP2Z: 
530 DO 550 R=1/NROOMS 
CO 540 0=1-/0BuS(R) 
IF (FTMPZZ(C/R) eEQeREGIM1) THEN 
CALL TMSPLMCALPHA,VMAZZCR) sZKAZZCR) -TECZZCCZR)» 
2 TMCZZCO/R) pZHPZZCOFR) pZREZZ(C/R) TMPZZ(C-R)) 
ENC IF 
54C CONTINUE 
550 CONTINUE 
GO TO 1C 


TEPZR: 
55 


ang 


ao 


an 


560 


& tl 


570 
580 


00 580 R#1s«NROOMS 
CO 570 O#1-/0BUS(R) 
IF CFTEPZR(O-R) -EQeREGIM1) THEN 
CALL RDONPCZUFZZ¢ZKFZZ/TIMEs (R21) XMAXOBS+O0,ZRFEZZC0-R)» 
ZHFZZPCO/RISZLRZXCRIAZLRZVORI op ZHFZZCC AR), 
ZTMOZZCOsRITMOCLZPCOLR) »-TMOZZCC/RI A TECZZCO-R)» 
TEPZRCO-R)) 
ENC IF 
CONTINUE 
CONTINUE 
GO TO 10 


ZHFZZ3 


630 


640 
650 


FOLW 
660 


670 


00 650 R=Te/NROCMS 
CO 640 O=1r0BUS(R) 
IF CFZKFZZ(C/R)-EQoREGIM1) THEN 
CALL HEIGHT (CHICO/RIATPSIOCO+R) »TMCZB(CARI + TMOZZCO“R)» 
ZREZZCCe/RI+ZHFZZ(C RD) 
ENC IF 
CONTINUE 
COATINUE 
GO TO 1C 


Rs 
DO 680 W=T»NWALLS 
00 67G SICE # 12 
IF CFFCLWRCSIDE-W) EQ. RECT THEN 
R = WLINKCSIOEsW) 
CALL RACLWCZLRZXCRIFZLRZYCR) pAZHLZZCRIAZZKLZZCRIFZZULZZCR), 
FOLWRCSIDE-W)) 
ENC TF 
CONTINUE 


68C CONTINUE 


FQPh 
690 


1 
2 


700 


*1C 
720 


FOLh 
730 


USE 


GO TO 1C 


Rs 
DO 720 wW=1T/NWALLS 
Co 71C SICE=1-2 
IF CFFOCPWRCSIDE-W).EQeREGIM1) THEN 
R = WLINKCSIDE+h) 
SUM = C.00 
CO 700 C=1/CBJSC(R) 
FCTPW = 0.00 
IF CSTATECOsR) -EQ.FLAME) 
CALL RADFWCZLRZXCRIFZLRZVCR) »ATEPZRCO/R) ZHLZZ (RD, 
ZHPZZ(C oR) pZRFEZZCO“R) pZULZZ CR) A FQTP WD 
SUM = SUM + FC1PW 
CONTINUE 
FQPWRCSIDEsW) = SUM 
ENC IF 
CONTINUE 
CONTINUE 
GO TO 1C¢ 


Ds 
DO 750 W=T/NWALLS 
CO 74C SICE=1-2 

IF CFFCLWOCSICDE,W)EQ.REGIM1) THEN 
R=wLINKC(CSIDE-wW) 
IF CRLEQ.0O) THEN 

THIS CALL IF THE WALL SIDE IS IN THE OLTSICE WCRLO. 

CALL CNVWICZOWZMs/ZOWZNeZKAOUTSZKAZZ(SIDE-W)-FOLWCCSICEsW) dD 

ELSE 


56 


USE THIS CALL IF WALL IS IN A ROOM. 
CALL CNVWITCZOWK2ZMsZOWZNAZKLZZOR) A ZKWZZCSICESW) FOL WOCSIDEs HW)? 
ENC IF 
ENC IF 
740 CONTINUE 
75C CONTINLE 
GO TO 1C 


ZKWZZ: 
760 00 780 w=t-/NWALLS 
CO 770 SICDE=1-2 
IF CFZKWZZCSICEsW).EQ.REGIM1) THEN 
R=WwLINKCSICEsW) 
IF. CR.NE.0) THEN 
ZUL = ZULZZ(R) 


ZKA = ZKAZZCR) 
ZRFL = ZHLZZCR) 
eLoe 
ZKA = ZKACUT 
zHL = O.CC 
ZUL = ZULCUT 
ENC IF 
CALL TMPW1 CHeSIDEsWeZKASFOLWOCSIDE SW) »FQLWRCSICE,W)s 
1 FQFWRCSICE/W)/-ZELAZKWZZ(SICE-W) -ZUL-ZKWZZCSIDE-W)) 
ENC IF 


77C CONTINUE 
780 COATINUE 
GO TO 1C€ 


TMOCS: 
790 00 810 R=1-NROOMS 
IF CFTMOCSC(CR)EQsREGIM1) THEN 
SUM = ©€.00 
CO 8CC 0=1-0BUS(R) 
TmcC1 = O.CC 
1 CALL CXOPROCFCC2C0-R) -TMOZZ(0-R) -TMOD1) 
SUM = SUM + TMOC1 
80C CONTINUE 
TMCDSC(R) = SUM 
ENC IF 
810 CONTINLE 
GO TO 1C 


TMOMS: 
&820 CO 840 R=1/NROOMS 
IF CFIMOFMSC(R) -EQeREGIM1) THEN 
SUM = Q.00 
CO 820 O0=1-,0BJSC(R) 
TMCK1 = QO.CC 
IF CSTATECC+R) -EQeFLAME) 
1 CALL MNXPROCFCCC(O-R) -TMOZZ(0-R)-TKCM1) 
SUM = SUM + TMOM1 
820 CONTINUE 
TMOMSC(R) = SUM 
ENC IF 
84C CONTINLE 
GO TO 10 


TMOSS: 

850 CO 870 R=1/NROOMS 
IF CFTMOSS(R).EQeREGIM1) THEN 
Sum = C.CO 


ah 


aan 


aon 


am 


am 


CO 860 0=1,-,0BJNS(R) 
TMCS1 = 0.CO 
1 CALL SUTPRCOCFS(O-R)/-TMOZZ(0-R) -TMCS1) 
SUM = SUM + TMOS1 
£60 CONTINUE 
TMOSSCR)D = SUM 
ENO IF 
870 CONTINLE 
GO Tc 10 


TMOWS: 
880 DO 900 R=isNROOMS 
IF CFTMOWSCR) -EQeREGIM1) THEN 
SUM = Q.C0 
CO 89C O021-0BJNSCR) 
IF (CSTATECCAR) oc EQGe FLAME) 
1 CALL WTRPROCFH20CO-R) se TMOZZ(O4R) » TMOW1) 
SUM = SUM + TMCh1 
890 CONTINUE 
TMOWS CR) = SUM 
ENC IF 
900 COATINLE 
GO TO 1C 


TMOZBs 
NOTE THAT EBFIR HAS NOT YET BEEN INCCRPORATED.(9/3/81) 
910 DO 930 R=1/NROOMS 
CO 92C OF1-/08USCR) 
IF CFTMCZBCC/R)eEQeREGIMI) THEN 
CALL BURNCCRHICCAR) »-XGAMMACCAR) »-TMOZZC OLR o TMPZZ(0,R) 
TMOZB(O-R)) 


Lat] 


ENC VIF 

920 CONTINUE 
930 CONTINLE 
GO TO 106 


PHI: 
940 00 960 R=1/NROOMS 
CC 95C OF1-08USCR) 
IF CFPRKICO/R)-EQCeREGIM1) THEN 
CALL FLUXCQVAPC(CAR) -ZUFZZ-FQLOR(OsR) -FOPOR(CAR)» 
2 FOWORCOsR) pZMCZZCC ARI A ZRFZZ( CAR) AFHICCAR)) 
ENC IF 
950 CONTINUE 
96C CONTINUE 
GO TO 10 


AVLSMs 
970 00 990 R=1/NROOMS 
IF CFAVLSMCR).EQCeREGIM1) THEN 
SUM = 0.CC 
CC 98&C V=1-NVENTS 
AVL1 = 0.00 
IF CVLINKC1/V) -EQeR eORe VLINKC2-V). EQeR) 
1 CALL VATCVRCZBVZZCV) -ZHTZZ0V) -ZHVZZ¢V)-ZHLZZ2¢0R)-AVL1) 
SUM = SLM + AVL1 
98C CONTINUE 
AVLSMCR) = SUM 
ENC IF 
990 CONTINLE 
60 Toute 
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C 


C WVLS: 


1000 00 102C R=1,NRCCMS 


1 


101C 


IF CFWVLSCR) -EQeREGIM1) THEN 

SUM = 0.00 

CO 1€010 V=1,NVENTS 
WVL1 = C.00 
CALL CVWIOCZBVZZCV)-ZHTZZC0V) -ZHVZZCVI eZHLZZ CR) -WVL1) 
SUM = SUM + WVL1 

CONTINUE 

wVLSCR) = SUM 

ENO IF 


102C COATINLE 


C 


CSPPLRs 


GO TO 1C 


1030 CO 105C R=1-NRCCMS 


104C 


IF CFPPLRCR).EQeREGIM1) THEN 
SUM = Q.C0 
CO 1040 C=1,CBJSCR) 
PIFLR1 = 0.C0 
IF CSTATECCAR) EQ. FLAME) 
CALL PWRPLRCZLRZXCRI-ZLRZYCRI-TEPZRCO-R) se ZHPZZCC/R), 
ZRFZZCO/R)-PTFLR1) 
SUM = SUM + P1IPLR1 
CONTINUE 
PPLRCR) = SUM 
ENO IF 


105C CONTINUE 


Cc 


C TMCSM: 


GO TO 1C€ 


106C 00 108C R=1,NRCCMS 


1070 


IF CFTMOSMC(CR).EQ.REGIM1) THER 
SUM = 0.C0 
CO 1€070 C=1,-CBJSCR) 

IF CSTATECCA/R)EG.FLAME) SLUM = SUM + THC2ZZ(C0-R) 
CONTINUE ; 
TMOSMCR) = SUM 
ENC IF 


1080 CONTINUE 


C 


C TMPSM: 


60 TO StG 


109C 0O 111C R=1/NRCCMS 


1100 


IF CFTMPSMC(R).EGeREGIM1) THEN 
SUM = 0.00 
CO 1100 C=1-CBJISCR) 
IF (STATECO/R)sEQ.FLAME) SUM = SUM + TMPZZ(C>R) 
CONTINUE 
TMPSHCR) = SUM 
ENO IF 


111 CONTINLE 


C 


GO TO 1¢ 


C FLOWS (TEUSMs¢TMCSMs TMUSMsTMOZF se TMDZE TMMZFOTMSZFeTMWZF) = 
112C 00 113C R=1/NRCCMS 


1125 


CO 1125 C=178 
SUM100-R) = C.CC 
CONTINUE 


1130 COATINLE 


C 
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DO 115C VstsNVENTS 
TEU = O.CC 
TMU = 0.00 
™MO = 0.C0 
R1 = VLINK(1-V) 
R2 = VLINK(2,V) 
IF (R1.EC.0) THEN 
CALL FLCOWCCO/CPs CVMAOUTSVMAZZOR1))/2.00/2B8VZZ6V) -ZHRZZ(R2), 
ZETZZCVI SZHVZZ¢CV) -ZKAOUT/ZKAZZCR2)-0.00/ZHLZZ(R2)/-ZKACUT, 
ZKLZZOR2)-0.0C/-ZPRZZC(R2)/TEUsTMOsTMUD 
ELSE IF (R2.EG.C0) THEN 
CALL FLOWCCOsCP eC VMAOUTFVMAZZCR1IDI/2-0C-Z8VZZ6V) -ZHRZZ(R1), 
ZETZZOVIZZHVZZCV) pZKAZZOR1) p-ZKACUT/ZHLZZ(R1)-0.00/Z2KLZZ(R1), 
ZKAQUTsZPRZZ(R1)-0.00-TEUsTMD-TMUD 
ELSE 
IF CZHRZZOR1) aNESZHRZZ(R2)) WRITECIWTTY~1140) 
1140 FORMATC’ WARNING@=-FLOW ASSUMES THAT ADJCINING ROOMS HAVE TKE 
1SAME HEIGHT. *) 
CALL FLOWCCOeCPeCVMAZZCRIDFVMAZZCREDI/2e002ZBVZZCV) AZHRZZCR1), 
1 ZRTIZZCVIFZAVZZCV) AZKAZZORADAZKAZZOCR2)¢ZHLZZCR1) oe ZELZZCR2), 
é ZKLZZCRIIFZKLZZCR2I/ZPRZZCR1) AZPRZZCR2) -TEUATMOeTMUD 
ENC IF 


A = 


a — 


IF (R1eNE.0) THEN 
SUM1C1/R1) = SUM1C1/R1) + TEU 
SUM1C2eR1) = SUM1C02,R1) TMD 
SUM1(3/R1) = SUM1C03-R1) TMU 
END IF 
IF CR2eNE.0) .THEN 
SUM1C7/R2) = SUM1C1/R2) = TEU 
SUM1C2/R2) = SUM1C2/R2) = TMD 
SUM1¢3/R2) = SUM1C3,R2) = TMU 
ENO IF 


++ 


C . 
C GET THE MASS FLOW CF THE VARIOUS GASEOUS SFECICUS THROUGH THE VENT. 
IF CTMU GE. €.00) THEN 
R= R1 : 
ELSE 
R = R2 
END IF 
TF CR «NE. 0) THER 
CALL SPECFLCTMUsZYLOZ(RD-ZYLWZC(R) -ZYLSZCR)AZYLMZCR)» 
1 ZYLOZ(R) -CO2FLC/-H2CFLO-SUTFLOsMNXFLOJCXYFLO) 
ELSE 
CALL SPECFLCTMU,YCO2-0.00/C.CO-C.0C-Y02, 
1 CC2FLC/H2CFLO/-SUTFLO-MNXFLOSOXYFLC) 
ENO IF 


IF (R1.NE.0) THEN 
SUM1C4/R1) = SUM1C04-R1) + CO2FLO 
SUM105/R1) = SUM1C05/R1) + H2CFLO 
SUM1(€6/R1) = SUM1(06/R1) + SUTFLO 
SUM107/R1) = SUMIC74R1) + MNXFLC 
SUK1C8-R1) = SUM1C08/R1) + CXYFLC 
END IF 
IF (RZ2eNE.0) THEN 
SUM1(04,R2) = SUM104,R2) = CO2FLO 
SUN1C05-R2) = SUM1(5/R2) = H2CFLC 
SUM1(C6/R2) = SUM1(€6/R2) = SUTFLO 
SUM1C07/R2) = SUM1C07-R2) - MNXFLO 
SUM1C08/R2) = SUM1C8,/R2) — CXYFLO 
ENO IF 
1150 COATINLE 


C 
60 


00 116C R=1,/NRCCMS 


IF CFTEUSMCR)EQeREGIM1) TEUSMC(R) = SLM1°61-R) 
IF CFTMOSM(R).EQ.REGIM1) TMOSMCR) = SLM1C2,-R) 
IF CFTMUSMCR)EQ.REGIM1) TMUSMCR) = SUM1(03-R) 
IF CFIMOZFCRY-EQCeREGIM1) TMOZFCR) = SUM1C04,R) 
IF CFIMWZFCR).EQCREGIMI) TMWZFCR) = SUM1C(5-R) 
IF CFTMSZFCR)-EQeREGIM1) TMSZFCR) = SUM1(6-R) 
IF CFTMMZFCR)EGsREGIM1) TMMZFCR) = SUM1C7-R) 
IF CFTMOZFCR)EQ.REGIM1) TMOZFCR) = SUM1C08-R) 


116G COATINUE 
GO Tc 1C 
C 
C EPLSM: 
117C DO 119 R=1/-NROCMS 
IF CFEPLSMCR).EQe.REGIM1) THEN 
SUM = C.CO 
CO 1180 C=1-CBJSCR) 
TMPLUT = 0.60 
IF CSTATECC-R) -EQ.FLAME) 
1 CALL EATPLCTMPLL1) 
SUM = SUM # TMPLU1 
1180 CONTINUE 
EPLSMCR) = SUF 
ENC IF 
4119C COATINLE 
GO TO 1¢ 
C 
C BOXxyYSss 
1200 00 122C R=1,-NRCCMS 
IF CFBOXYS(R).EQ.REGIM1) THEN 
SUM = 6.00 
- €C 1210 C=1-CRBJS(R) 
BOxY1 = Q.CC 
IF CSTATECC/-R) «EQ. FLAME) 
1 CALL CXYBRNCXGAMASCO/R) -TMCZB( CR) -B0XY1) 
SUK = SUM + BCXYT 
1210 CONTINUE 
BCXYSCR) = SUM 
ENC IF 
122C COKTINUE 
GO TO 1C 
C 
c 
CT TEPSH’ 
1230 DO 125C R=1/NROCMS 
IF CFTEPSMCR) .EQeREGIM1) THEN 
SUM = 0.CC 
CO 1240 C=1-CBJS(R) 
TEFZZ = 0.00 
IF (CSTATECC/R) eEQeFLAME) 
1 CALL PERGLEC EKA ARES CARB OIS Oe ROT ERE LEC ARI eT FEZRLO CRD g 
2 TMGZZ(O/R) ec TMPZZ(0-R)-TEPZZ) 
SUM = SUM + TEPZZ 
1240 CONTINUE 
TEPS¥CR) = SUM 
ENC IF 
125C COATINLE 
G0 10 
4 
C 
G TE0SA: 
1260 00 128C R=1/NROCMS 
IF CFTEOSMCR)-EQeREGIM1) THEN 
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SUM = 0.00 
CO 1270 C=1,-08JS(R) 
IF CSTATECC/R) «EQ. FLAME) SUM = SLM + TECZZ2¢0r-k) 
1270 CONTINUE 
TEOSMCR) = SUM 
ENG IF 
128C CONTINUE 
GO TO 1¢ 
ENC 
SUBROUTINE FUNCTCX/ZERO-TIME) 
IMPLICIT INTEGER CA=Z) 


Cc? PART CF MODULE INTERFACE 
REAL*8 X/ZERO/TIME 
DIMENSION XC*)/ZERCC*) 


ALDIFF CALLS THIS SUBRCUTINE TC EVALUATE TRE PRYSICAL ECUATIONS. 
FUNCT FERFCRMS THREE OPERATIONS: 
STEP 1 - FUNCT UNPACKS THE INPUT VECTOR X CNCT THE SAME 
X AS USED IN THE EQS. ABOVE) INTC SECTION 1 CF /VAR/. 
EVERY VARIABLE CURRENTLY IN THE SYSTEM IS ASSIGNED IN 
THIS UNPACKING. THE VARIABLES WKICH ARE NOT IN THE 
SYSTEM ARE INITIALLY GIVEN MEANINGFUL VALUES IN 
SETSYS AND RETAIN 
THESE VALUES. FCR EXAMPLE, TMO2Z OF A COOL CBVECT IS 
INITIALLY SET TO GO. AND IS NOT REASSIGNEC UNTIL THAT 
CBJECT IGNITES. THUS, AFTER THE UNPACKING STEP, EVERY 
PHYSICAL VARIABLE IN SECTION 1 CF /VAR/ CONTAINS A 
PHYSICALLY MEANINGFUL VALUE. 


STEP 2 = FUNCT CALLS EVALFP AND ERFCE TO EVALUATE THE 
VECTCR VALUEC FUNCTIONS Fs Gr Hs Iv WHERE F REPRESENTS 
THE ROOT FINCING EQUATICNS, G REPRESENTS THE DIFFERENTIAL 
EQUATIONSs H REPRESENTS THE FIXEC PCINT EQUATIONS, AND I 
REPRESENTS THE ELIMINATED VARIABLE ECUATIONS. 

EVALFP CEVALUATE FIXEO PCINT) CALLS THE FUNCTIONS 
ASSCCIATED WITH THE FIXED PCINT EQUATIONS,» THE CCMPCNENTS 
CF H AND I, ANO PLACES TRE CUTPLT INTO THE FIRST SECTION 
CF /VAR/. ERFOE CEVALUATE ROOT FINCING ANO CIFFERENTIAL 
EQUATIONS) CALLS THE ROCT FINCING ANC OCIFFERENTIAL 
FUNCTIONS, THE COMPONENTS OF F AND G RESPECTIVELY ANDO 
PLACES THE CUTPUT IN SECTIONS 2 AND 3 OF /VAR/ 
RESPECTIVELY. 


STEP 3 = THE CONTENTS OF /VAR/ IS REPACKED INTO THE 
CUTFUT ARRAY ZERO AS DIRECTED 8Y THE POINTER ARRAY 
PACK. 


NOTE TRAT THE VARIABLES ARE SECUENTIALLY UNPACKED FROM X ANO PLACEC 
INTC /VAR/ IN THE POSITICN INCICATEC BY THE CORRESFCNOING ELEMENT CF 
THE ARRAY INSYS.] SIMILARLY THE ARRAY PACK CETERMINES THE CROER IN 
WHICH VARIA®LES ARE PACKED INTC THE OUTPLT ARRAY ZERO] 


NOTE ON CRCERIANG ANC VARIABLE ELIMINATICN: 

WHEN EVALLATING THE FIXED 
POIKT FUNCTIONS CTHAT IS THE FUNCTIONS ASSCCIATED WITH THE FIXED 
POINT EQUATIONS)» EVALFF SENDS INPLT VARIABLES TO THE PHYSICAL 
SUBRCUTINES FRCM SECTICN 1 CF /VAR/ ANC ALSC PLACES EACK CLUTPUT 
FROM TRE PFYSICAL SUBRCUTINES INTO SECTION 1 OF /SVAR/. SINCE THE 
INPUTS TC TRE N°TH FHYSICAL SUBROUTINE ARE AFFECTEC BY THE CUTFLUTS 
OF THE Nw1- Nw2s ETC. SUBROUTINES, THE CALLS IN EVALFP CAN BE 
ORCEREC TO GIVE A MINIMUM NUMBER OF FIXED FCINT VARIABLES (I.E. THE 
ORCERING CAN BE USEC TCO ACHEIVE VARIABLE ELIMINATICH.) 


62 


NAODAAAAAAAAIAAAAARAAN 


THE EVALUATION CROER OF THE ROCT FINOING ANC CIFFERENTIAL 
EQUATICNS IS LESS IMPORTANT 8UT MAY STILL @E SIGNIFICANT. WHEN 
EVALUATING THE FUNCTION ASSCCIATED WITH A RCOT-FINCING CR CIFFEREN- 
TIAL EQUATION, ERFCE ALSC SENCS INPUT VARIABLES FROM SECTICA 1 OF 
/VAR/ TO THE PHYSICAL SUBROUTINES. HOWEVER, ERFOE PLACES TRE CUTPLTS 
RETURNED 8Y THE PHYSICAL SUBRCLTINES INTC SECTIONS ¢ ANC 3 CF /VAR/. 
THUS, THE CUTPUT OF THE N°TH RCCOT-FINDING CR DIFFERENTIAL FUNCTION 
CANNOT AFFECT THE INPUTS TO THE N#1 SUCH FUNCTION. THEREFCRE, THE 
EVALUATION CRDER OF THE ROOT-FINDING ANC DIFFERENTIAL FUNCTCINS WITH 
EACH OTHER IS ACT IMPORTANT. 

IF THE EVALUATICN CF A ROOT FINOING OR CIFFERENTIAL FUNCTICN 
IS REORCEREC WITH ANY FIXEC POINT FUNCTICN EVALUATICNs HOWEVER, 

THEN TRE IAFUTS TC THE ROCT-FINCING OR CIFFERENTIAL FUNCTICN MAY 
CHANGE. TRE ThO ORCERS CF EVALUATION SHCULC PRCDUCE SIMILAR 
SOLUTICNS TC THE NUMERICAL FRGBLEM, BUT CNE CRCER CF EVALUATION MAY 
BE MORE STABLE THAN ANOTHER. 


SINCLLOE 9-DIMN.CMN 
SINCLLOE 9, VAROWCMN 


an 


am 


aAaoan 


INTEGER I 

REAL*8 XINCVARSIZ) 
NOTE TRAT THE FOLLCWING EQUIVALENCE ASSUMES THAT TELZ2R IS THE FIRST 
ARRAY IN CCMMON /VAR/ 

EQUIVALENCE (CXIN-TELZR) 

INTEGER PACK 

COMMCN /PCKPTR/ PACK (MAXVRS*41) 


UNPACK X INTO COMMON /VAR/. 
CALL UNPACK(X) 


PERFORM FUNCTION EVALUATION. 
CURRENTLY» THE ROOT FINCING ANC DIFFERENTIAL ECUATICNS ARE EVALUATED 
AFTER ALL CF THE FIXED FOINT EQUATIONS. 

CALL EVALFPCTIME)D 

CALL ERFCECTIME) 


REPACK INTC ZERO. 
I= 1 
WRILE PACKC(I) <>C DO 
10 IF CPACKCI) EC. 0) GO TO 2C 
ZEROCID = XINCPACKCI)) 
12 2ehists1 
GO 70.10 
END WHILE 
2C CONTINUE 


RETURN 

ENC 

PRCGRAM MARK6 

IMFLICIT INTEGER (A-Z) 


This is the main controlling frogram of version 6 cf the home Fire 
Code. The structure cf this module is given belouw. 


initializations (including call to the input peckace) 
while time < finish do 

check for changes in set cf eacuations 

check for outputs 


locate next planned interruption - set TINT to time of irterruption 


ehile tine < tint do 
set up for 2 time step - get size cf time step to try 
call integretor 
if step failed, reset to first order integretion or bomb ort 
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see if any unplanned discontinuities occurred end reject step if yes 
and uhile 
enc while 
stcp 


Note that if en interruption is scheduled to eccur so that the smallest 
alloweble time stee will step beyond the time of the interruptions, then 
the interruption is caused to occur at the beginnirg cf the time step. 

In other wordss every time the subroutine "checks to seo if it’s time to 
do something”s it checks via IF (TIME+HMIN.GT-time to do scmething) TREN. 


Local Variables: 

NT =~ the number cf the time step 

NXTTY == time for the next output to the 

NXTOSK == time for the next output to the disk file 

TOISC =~ time cf the next known discontinuity or change in the set 
of equetionss set to 2xFINISH if there is no scheculedc 
discontinuity 

TINT ~= time of the next known interrreption 

TIME -- time 

OLCTIM == time zt which converged values were stored in OLCX 

X == velues for the variables end their time cerivatives 

XMAX =" contains a significant value fer each cf the variables in 

the system | ; 

H =" size cf the time step 

HMIN = smallest allowable time step 

HMAX == largest allowable time step 

EPS == the one step error tolerance 

OLCX =-- the converged values of the variables end their time 

derivatives at the previous time step 

ERKOR =~ the estimates of the one step trurcaticn error for 
each cf the variables 

ZEROsZ/JACePIVOT ~~ work space for the numerics 

HSTORE -~ the size of the time step to which the derivatives ir 
X are scaled 

HOLOST =~ the size cf the time step to uhich the derivatives ir 
CLOX ere scaled 

HSTART == the size cf the time step thet will be attempted after 
each restert cf the intesrater 

FINISH =" stopping time for the run 

TTYOUT =~ the output intervel for the terminal in secords 

OSKOLT =-- the output interval for the cisk file in secends 

PIVOT -- used hy the numerics 

RESULT ~~ returned by ALOIFFe gives information on the ster 
just completeds see ALOIFF cemments for details 

CRCER == the current order cf the method 

MAXODR == the meximum allowable order cf the method 

OLCORD -- the order of the method before a last call to ALCIFF 

OSCTYP -- returned by UNPOSCs the type cf ciscontinuity which has 
seen cetected 

CHNGRM == the room in which the above discontinuity has been 
cetected 

CHNGCB -= the ckject which has experierced the ebhove discontinuity 

FNUM -- number cf root finding equations in the system 

GNUM =~ number cf differential equetions in the system 

HNUM -* number cf fixed point equations in the system 

INLM == number cf eliminated variable é¢cuations in the system 

SIZE -- number cf ecuations and variables in the system 


REAL*8 NXTTY/NXTOSK,TDISCe/TINT»~TIMEsCLCTIM 
REAL*8 Xs+XMAXsHsHMIN-HMAXsSEPS/-CLOXZERRCRA-ZEROsZ/ JAC HOLCs 
1 HSTCRE-HOLCST-HSTART/FINISHE-TTYOUTsCSKCUT 
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INTEGER PIVCT-RESULT/-ORCERsMAXCOR, Jr I-CLOOROC/OSCTYP,-CHNGRM, 
1 CRNGOB/FNUM-GNUM-/HNUMsINUMs SIZE 
CHARACTER VARNAFK1C 
SINCLUCE 9-DIMN.CMN 
$INCLUDE 9-ICEé.CMN 
SINCLLOE 9/-OSCNAM.CMN 
PARAMETER (MAXCCR=4-/NDOIM = 100) 
CIMENSICN XCMAXVRS*#CMAXCOR4+1))4XMAXCMAXVRS)» 
1 CLOXCMAXVRS*CMAXOCR#+1)), 
2 ERROR C2*MAXVRS) -ZEROCMAXVRS) -ZCMAXVRS) »p JAC CMAXVRS-NOIM), 
3 FIVOTCNDOIM) 
DATA HSTART/1.0-2/ 
DATA EPS/-HMINJHMAX/1.07°341207475-2DC/ 
Cc 
C CALL TC INITIALIZE THE RUN TIMER. FOR USE CN FARVARD VAX 11-780 
C COMPUTERS CNLY. 
CALL RTIMECQ) 
OPEN CUNIT=IWOSK-FILE="°FIRE.DAT’ »STATUS=°NEW’, 
1 ACCESS=*SEQUENTIAL’,-RECL=150) 
WRITECIWOSK,10) HMIN/-HMAX/EPS/MAXODR 
WRITECIWTTY-10) HMIN/-HMAX-EPS/-MAXODR 
10 FORMATC’ HMIN=°,1PE10.343Xe °HMAX=° Fe TPENC 36 3XrEPSH°s TPEI0.2, 
1 3X °MAXODR="°,1I3) 
TIME = C.0C 
TOZSCa=4 0266 
OSCTYP = STRTUP 
NXTTY = Q.CC 
NXTCOSK = Q.CO 
NT = 0 
CALL INITCFINISK-TTYOUT/-DSKCUT) 
CALL NEWSTPCHMAX,/TIME,X) 


On 


WHILE TIME + HMIN <= FINISH DO 
20 IF (TIME + HMIN .GT. FINISH) GC TO 100 


aD - 


CHECK FOR ChRANGES IN TRE SET CF EQUATICNS. 

IF (TIME + HMIN .GT. TOISC) THEN 
Fh = FSTART 
CALL NWSTATCOSCTYPsCHNGCB,-CHNGRMsXeFRUM*/GNUMZRNUMSINUMS SIZE, 

1 ZERCeZoTIMEs EPS se XMAXrPIVCTs¢JACsMAXVRS) 
FSTORE = # 
CALL ACINITCXs/TIME-HSTORE-EPS/ORDER-FNUMsGNUMsHNUMs INLM) 
TCISC = 2.00*FINISH 

ENC IF 


an 


CHECK FOR CLUTPLT TC THE OISK. 

IF (TIME + HMIN .GT. NXTOSK) THKEN 
CALL WRITCX/TIMEsNTs/IWOSK) 
NXTDOSK = NXTCOSK*CSKOUT 

ENC IF 


aa 


CHECK FCR CUTPLUT TC THE TERMINAL SCREEN. 
IF (TIME + HMIN .GT. NXTTY) THEN 
CALL WRITCX,/TIME-NT-IWTTY) 
AXTTY = AXTTY*TTYCUT 
ENCw ZF 


an 


LOCATE NEXT PLANNEC INTERRUPTION: 
TIAT = MINCFINISH/NXTTY/NXTCSK) 


INTEGRATE LF TC A CISCONTINUITY: 
WHILE (TIME + HMIN LE. TINT) CC 
3Q IF (TIME + HMIN .GT. TINT) GO.TC 1106 
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aa 


OAaAaANDN 


Om 


AON 


AOAOAaAQA 


AOMAANYA 


BEGIN NEW TIME STEP. 
CALL NEWSTFCHMAXs/ TIMES X) 
CALL SCALECXsXMAX) 


SAVE ENOUGH INFORMATION SO THAT WE CAN RECCVER IF WE 
STEP PAST AN UNPLANNED CISCCNTINUITY. 


OLCTIM = TIME 
OLCORD = ORDER 
HOLO = H 

HOLOST = HSTORE 


TAKE A STEP. 
SET UP THE TIME STEP SC AS NOT TO STEP PAST A OISCCNTINUITY OR OTFER 
TYPE CF INTERRUPTICN. 
H MINCH/TINT“TIME) 
; MINCHMAX,H) 
MAX CHMIN-H) 
oe ALCIFFCXsXMAX«TIMEs,He-HSTORE/HMINZEPS, 
1 RESULTs/CROERsMAXVRS/MAXCOR, 
1 OLCX-ERROR,-ZERC Ze JACePIVCET) 


WRITE CUT INFORMATICN ON THE STEP JUST TAKEN. 


WRITE CIWDSK740) TIMEsH/-RESULTA/-CRDER 
WRITE CIWTTY+4C) TIMEZH-RESULTACROER 
40 FORMATC7X+°T2=°s F7 230° H=°,1PE10.34" RESULT#°,sI5, 
TAR ORCER=°,I3) 


IF THE STEP FAILED, TAKE APPROPRIATE ACTION. 


IF (RESULT LT. 0) THEN 
ALCIFF FAILED. 
IF (CROER eNEs 1) THEN 
H = HMIN 
HSTCRE = H | 
CALL ACINIT(X,/TIME/HSTOREZEPSsCRCERsFNUMsGNUMsHRUMs NUM) 
ELSE 


COME HERE IF THE PRCGRAM BOMBEC OUT. WRITE OUT ERRCR ARRAY ANC 
THE LAST CCNVERGED SET CF VALUES TKEN CUIT. 
DO’ COC Lee) tres ce 
ERRORCI) = ERRORCID/XMAXCT) 
6C COATINUE 
WRITECIWTTY-70) CVARNAMCI)D-ERRORCI)-I121-SIZE) 
WRITECIWOSKs70) CVARNAMCI)D-ERROR(ID-1=1/SI2E) 
70 FORMATCX,°SCALEC TRUNCATICA ERRCRS’/ 
T<SIZE/2 41> (X73 C2, AIC se 2H" 1PE10.245X)/)) 
WRITECIWTTY+69) 


65 FORMAT(C’ SCALE TRUNCATION ERRORS”) 
WRITECIWTTY#7C) CVARNAMCIDSERRCRCID-I21,SI2ZE) 
70 FORMATC1X,C3CA1C,°=°-1PE10.3 5X) 4 /41X)) 


WRITE CIWOSK,69) 
WRITECIWOSK-70) CVARNAMCI)D-ERRCR(I)-1=1-SI1ZE) 


WRITECIWTTY,»80) CVARNAMCI)-OLOX(I),12=1,SIZE) 
WRITECIWOSK,8C) CVARNAMCI)D-CLOXCI)-I=1-SIZE) 
8C FORMATCX/Xs°LAST CONVERGED VALUES: °/ 
T<SIZE/241>0K 7302, A1C 7° =%r 1PE100345X)/)) 
WRITECIWTTY,79) 
79 FORMAT(C’ LAST CCNVERGEC VALUES :%*) 
WRITECIWTTY+70) CVARNAMCI)-OLOXCI)-I121,-SIZE) 
WRITECIWOSK,s79) 
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WRITECIWOSKs70) CVARNAMC(I)-OLOXC(I)-12=1-SIZE) 


WRITE CUT CPU TIME BEFORE STOPPING. FCR USE ON HARVARD VAX 11-780 
COMPUTER ONLY. 3 
CALL RTIME(1) 
STCP 
END IF 
ELSE 
ALOIFF SUCCEEDEC. 


Creer CF 


SEE IF ANY UNPLANNEC CISCONTINUITIES OCCURRED. 


cv ry cy oy 


CALL UNPLOSCCX/TIME/TDISC-FINISH/CSCTYPsCHNGCE,CHNGRM) 


IF AN LNPLANNEC DISCONTINUITY OCCURRED, WE MUST BACK UP ANC REFEAT 
THE TIME STEPs BEIKG CAREFUL NCT TC STEP, BEYONC THE ESTIMATED TIME 
CF THE CISCCNTINUITY. 
IF (TGISC .LE. FINISH) TINT = TOTSC 
DF “CTORSC Siar I MED) THEN 
00 90 I = 14 SIZE*COLOCRO+1) 
XCI) = OLCXCI) 
90 COATINLE 
TIRE = OLOTIM 
CRCER = CLCCRC 
H = HOLC 
HSTCRE = HOLOST 
TIAT = TOISC 
END *1F 
ENC IF 
NT i= NT? 21 


ANNAN 


C £NC WHILE 
GO. TO: 30 
110 COATINLE 
C ENC WHILE 
GO TO 2C 
10C CONTINLE 


C 
CALL WRITCX/TIME-NT/IWTTY) 
CALL WRITCX,/TIME-NTs/IWOSK) 
CALL RTIME(1) 
STCP 
ENC 
SUBROUTINE INITCFINISH-TTYOUT/-CSKOUT) 
IMPLICIT REAL*E CA-h,O0-2Z) 
REAL*8 FINISH/-TTYCLTs/-OSKOUT 
C i 
C THIS SLBROLTINE IS CALLED AT THE START OF A RUN TO? 
C 1) READ TRE DATA FILE CREATED 8Y THE INPUT PRCGRAM TO GET INITIAL 
C VALUES FCR THE FHYSICAL PARAMETERS IN THE RUN. 
C 2) LABEL THE PRINTED CUTPUT WITH LSER COMMENTS, OATE AND TIMEs RUN 
C NUMBER COQOOE, ANC INFUT PARAMETERS? 


f$INCLLOE 9,/ICE.CWN 

S$INCLLOE 9-DIMN.CMN 

SINCLUCE 9,/BLONG.CMN 
INTEGER INPSIZ 
PARAMETER CINPSIZ=5280/4) 
INTEGER IDOATCINFSI2Z) 
EQUIVALENCE CICAT,Z8V2ZZ) 
CHARACTER PROSE*80 


5 WRITECIWTTY~10) 
10 FORFMAT(’ ENTER THE NAME OF THE FILE WHICH CCNTAINS THE CATA FOR 
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1 TRIS RUN.”) 
READCIRTTY»20-ERR=5) PROSEC(1:30) 
2C FORMATCA) 

OPENCUNIT=21-ACCESS= SEQUENTIAL “,FORM=°LNFCRMATTED*’ »STATUS=“°OLO%,» 
1 FILE=FRCSEC(1:3C)) 
CO15 Leis tne siz 
REACC21) ICATCI) 

15, CONTINUE 
CALL RECAPCIWOSK) 
WRITECIWDOSKs30) VERSUNC1) -VERSUN(2) 

30 FORMAT(CX, “VERSUNC1)2°,I2-° VERSUNC2)2°%,12) 
WRITECIWOSK240) CIAVLINKC1sID sVLINK (2,1) -IT2=1/NVENTS) 

40 FORMAT(C’ VENT “sI2e°%: SIOE 1 IK ROOM “%,I2,° SICE 2 IN RCOM. °,I2) 

80 WRITE CIwWTTY,35C) “TTY CUTPLT INTERVAL’s “20.0% 

350 FORMAT(C’ ENTER °,A23-° CEFAULT IS “sA7,%s *) 
REAC CIRTTY-24C,ERR=80) TTYOUT 

24C FORMAT(CE12.5) 
TF CTTYCUT LE. O.CC) TTYOUT = 20.00 

GC WRITE CIWTTY,-35C) “CISK OUTPUT INTERVAL ‘’+°10.0° 
READ CIRTTY,240,ERR=90) DSKOUT 
IF COSKCUT .LEw. O.0C) OSKOUT = 10.00 


ASK USER FCR LCCP CONTROL PARAMS, OR DEFAULT 
100 WRITE CIWTTY,-35C) “RUN LENGTH *, 50C.0° 
READ CIRTTY-24C-ERR2100) FINISH 
IF CFIAISH LE. O.-0C) FINISH 2 500.00 
RETURN 
ENC 
SUBROUTINE NWSTATCOSCTYPsOBs RMo Xe FNUMsCNUMsHNUMs INUMs SIZE, 
1 LZEROsZ e+ TIMESEPS eXMAXePIVOTs JAC se MAXVRI)D 
IMPLICIT INTEGER (CA-2Z) 
INTEGER OSCTYPsCBsRMeFNUMsGNUMsHNUMsINUMs SIZESFIVOT(%), 
4 MAXVR1 
REAL *8 XCw)FZZERC CHI AZCX)+TIMESEPS A XMAXC%) pA SAC CMAXVR1-%) 


MARK6 CALLS THIS SUBROUTINE WHENEVER THERE IS A CHANGE IN 
THE SET OF EQUATIONS OR A DISCCNTIANUITY IN THE VARIABLES. 
THE SUBRCUTINE SETS UF THE VALUES IN THE ARRAYS STATE, 
FIRTYP, LAYR» AND FIRCOM TO REFLECT THE STATE CHANGE CIF ANY) 
WHICH FAS CCCURRED. THE SUBROLTINE THEN CALLS SETSYS 

TC SET UP ThE PCINTER ARRAYS INSYS ANO FACK ANC TO GET 

A CESCRIPTION CF THE NUMBER ANC TYPE OF EACH EQCUATICN 

IN THE SYSTEM. FINALLY, THE SUBROUTINE TRIES TO GET A 
CONVERGED SET CF VALUES FOR THE VARIABLES AFTER THE DISCON- 
TINUITY BY MAKING A GCOC INITIAL GUESS ANDO THEN CALLING THE 
NUMERICS TC SOLVE THE NEW SET CF SIMULTANECUS EQUATIONS. 


INPLTS: 

DSCTYP -- THE TYPE CF OISCCATIANUITY WHICH KAS CCCURRED: 
CSCTYP = 1 CBRNOUT) ==> A BURNOUT. 
CSCTYP = 2 CHEATIG) --> A HEAT IGNITION. 
CSCTYP = 3 CCNTCIG) --> A CONTACT IGNITICA. 
CSCTYP = 4 CSTRTUP) ==> THE KUN HAS JUST STARTED. 
CSCTYP = § CSPLOVR) ==> KCT GASES BEGIN TC FLCW INTO 

A PREVICUSLY UNINVOLVEC ROCM. 
O06 ~~ TRE CBJECT NUMBER CF THE OBJECT hHICK HAS CHANGEC STATE 
CIF APPLICABLE). 
RM == THE ROOM NUMGER OF TRE RCOM IN WRICH THE CBJECT THAT 


FAS CHANGED STATE IS LOCATED CIF APPLICABLE). 

X =~ CCNTAINS THE SET OF CCNVERGED VALLES FOR THE VARIABLES 
IN THE SYSTEM BEFORE THE CISCONTIALITY. 

TIME -- THE TIME AT WHICH THE CISCONTIAUITY OCCURREC. 

EPS =~ THE ONE "STEP" ERRCR PARAMETER, 
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C 
C NCTE TREAT TRE FCLLGWING ARRAYS MUST BE PASSED AS INFUT TO ®E 
C USEC AS WORK SPACE THOUGH THE INPUT AND OUTPUT CONTENTS ARE 
C UNIMPORTANT. 
C ZEROCMAXVR1) 42 CMAXVR1) -XMAXCMAXVR1) -PIVOT CMAXVR1) - JAC CMAXVR1,NOIM) 
C 
C 
C OUTPUT: 
C X =~ CCNTAINS THE SET OF CCNVERGED VALLES FCR TRE VARIABLES IN 
C LEE at STEM LARTER TRE CLSCONTING PHI. 
C FNUM == THE NUMBER CF RCOT FINCING EQUATIONS IN THE SYSTEM AFTER 
C THE DISCONTINUITY. 
C GNUM -- THE NUMEER CF DIFFERENTIAL EQUATIONS IN THE SYSTEM AFTER 
C THE OISCONTINUITY. 
C HNUM == THE NUMBER CF FIXEC POINT EQUATIONS IN THE SYSTEM AFTER THE 
C CISCONTINUITY. 
C INLM -- THE NUMBER CF ELIMINATEO VARIABLE EQUATIONS IN THE SYSTEM 
C AFTER THE CISCONTINUITY. 
C SIZE -- THE NUMBER CF EQUATIONS IN THE SYSTEM AFTER THE 
C DISCONTINUITY. 
ie 
SAVE 


SINCLUCE G-/DIKMN.CMN 
S$INCLUCE 9-3LOCNG.CMN 
S$INCLLOE GreVARE.CMN 
$INCLUODE 9-,ICE.CMN 
$INCLUCE GS/OSCNAM.CMN 
INTEGER Os ReweSIDE 
LOGICAL BLAZEs/SING-CONV 
REAL*3 PIsZKA 
PARAMETER (CPI = 3.1415527) 


THE FOLLCWIAG LINE UNPACKS THE VECTOR X CF CONVERGEC VALUES INTO 

COMMON /VAK/. AFTER THIS CALL» EVERY VARTABLE IN /VAR/ WHICH 

WAS CEFINEC BEFCRE THE CISCCNTINUITY CCATAINS THE MEANINGFUL 

CONVERGED VALUE FRCM JUST BEFORE THE TIME CF The OISCONTINUITY. 
CALL UNPACK(X) 


AAMDAN 


THE FOLLCWIAG IF.eeELSE ITF eee ENC IF CONSTRLCTICN CRKANGES THE VALUES 
IN THE ARRAYS STATE-FIRTYP-LAYR/ANC FIRCOM SO THAT THEY DESCRIBE TRE NEW 
STATE CF TRE PRCBLEM, TREAT IS THE STATE AFTER THE CISCONTINUITY. 
IF (COSCTYPJZEQC.SPLOVR) THEN 
LAYRCRM) = .TRUE.} 
ELSE IF COSCTYP .wEQ. BRNOUT) TREN 
STATECCB/RM) = CNSUM 
SCAZE = FALSE, 
Co 1C 0=1,0BJS (RM) 
BLAZE = BLAZE .CRe STATECO/RM) EQ SFLAME 
1C CCNTINUE 
FIROCMCRM) = BLAZE 


AOOAaAN 


ELSE IF (CDOSCTYP EC. HEATIG) THEN 
ZTIG(CA8s-KM) = TIME 
STATECOB/RM) = FLAME 
FIRTYPCO8/RM) = PCOL 
FIRCCMCRM) = TRUE. 
LAYRCRM) = TRUE. 


ELSE IF, COSCTYP..EC.. CNICIG) THEN 
ZTIG(CBs/RM) = TIME 
STATECCS8/-RM) = FLAME 
FIRTYPCOG*/RM) = GROWNG 
FIROCMCRM) = TRUE. 
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im) 


LAYR(RM) = TRUE. 


OISCONTINUITY IS THE START OF THE RUN 
ELSE) TR KOSC IY PSEC. STRIVED» THEN 
CC 111 R=1/NRCOMS 
FIRCOMCR) = FALSE. 
CO 112 C=1/CBJSCR) 
IF CSTATECO/R)-EQeFLAME) THEN 


ZTIGCO-R) = 0.0C 
FIRCOMCR) = eTRUE. 
ENO IF 
TFSICCO/R) = TANCPI/180.COXPSICCCAR)) 
112 CONTINUE 


LAYRCR) = FIRCOMCR) 
111 CONTINUE 
CONTINUE 
EWC. Es 


THE FOLLOWING CALL 10 SETSYS HAS TRREE EFFECTS: 
1) FNUMs GNUM, HNUMs INUMs SIZE ARE SET TC THE VALLES APPRCPRIATE 
FOR THE SET OF EQUATIONS IN THE SYSTEM AFTER THE OISCONTINUITY. 
2) THE ARRAYS INSYS ANC PACK CSTOREC IN CCMMON BLOCKS NOT AVAILABLE 
TO THIS SUBROUTINE) ARE SET UP WITH THE PCINTERS FCR THE NEW SET 
CF EQUATIONS. 
3) THE VAFIABLES IN /VAR/ WHICH ARE DEFINEC BLT NCT IN THE SYSTEM 
AFTER TRE CISCCATINUITY ARE GIVEN MEANINGFLL VALUES. 


CALL SETSYSCFNUMsGNUMsHNUM/INUM, SIZE) 


THE FOLLOWING IF.eeELSE IF «2eEND IF CONSTRUCTION ATTEMPTS TO GET 
GOCC FIRST GUESSES FOR THE VALUES CF THE VARIABLES IN THE SYSTEM. 
RECALL THAT THE VARIABLES IN /VAR/ WHICH ARE DEFINEC BUT NOT IN 
THE SYSTEM CAFTER TRE CISCCNTINUITY) NCW CCNTAIN THE APPRCPFIATE 
VALLES FOR AFTER TRE CISCONTINUITY. HCWEVER, A VARIABLE WHICH IS 
IN THE SYSTEM AFTER THE DISCONTINUITY CONTAINS 1) NG MEANINGFUL 
VALUE IF TRE VARIABLE WAS UNDEFINED BEFCRE THE CISCONTINUITYs, CR 
2) THE CCONVERGEC VALUE FROM SEFCRE THE CISCCNTINUITY IF THE VARIABLE 
WAS CEFINEC BEFCRE THE CISCCNTINUITY. WE wISH TO GET A COMPLETE 
SET CF CONVERGED VALUES FCR THE VARIABLES BEFORE WE RESTART THE 
INTEGRATOR. HACWEVERs WE CANNOT SOLVE THE KEW SET CF SIMULTANECUS 
EQUATICNS UNLESS WE HAVE A GOOC FIRST GUESS AT THE SOLUTION. THE 
FOLLCWING IF BLOCK TRIES TO PROVIDE THAT FIRST GUESS. 

NCTE THAT WE CNLY MAKE A FIRST GUESS FOR THE NON~ ELIMINATED 
VARIABLES. A FIRST GUESS CAN THEN 8E OBTAINED FOR THE CTHER 
VARIABLES @Y MAKING A SINGLE CALL TC FUNCT. 


IF COSCTYPLEQ.SFPLOVR) THEN 


ZMLZZCRM) = 1.0-2*eZLRZXCRM)XZLRZY CRM) XVMAZZ CRM) 


ZELZZCRM) ZKAZZCRM) &CPHZMLZZ¢0RM) 
ZMCLORM) = YCC2RZ2MLZZ CRM) 

ZMSLCRM) = C.00 

ZMMLCRM) = C.CC 

ZMCLCRM) = YC2eZMLZZ(RM) 


ZMWLORM) =C.00 
TELZZCRM) = 1.04 
ELSE LF CDSCLYe. cu. ceNULt.) eLHee 
IF A BLRNOLT HAS JUST CCCURREC, THE VALUES FOR THE VARIABLES FROM 
BEFCRE THE CISCCNTINUITY ARE A GOOC APPROXIMATION TC THE 
NEw CONVERGEC SOLUTION. 
CCNTIALE 
ELSE IF COSCTYE .EQG.HEATIG) THEN 
IF AN IGNITION THRCLGH KEATING HAS OCCURREC, THEN SET THE FIRE 
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RACIUS TO THE INITIAL 8SLRNING RADIUS AND TRE FLAME KEIGHT TC 

THE HEIGHT WHICH THE NEW FIRE wWCULC HAVE IF IT WERE NOT OXYCEN 
STARVEC. CSINCE THE INITIAL BURNING RACIUS IS SMALL, OTKER VARIABLES 
ARE NOT SIGNIFICANTLY AFFECTED). 


THE FOLLOWING IF BLCCK TAKES CARE CF THE CASE WHERE THE NEW FIRE 
BEGINS A NEW HCT LAYER IN THE ROOM. 
IF CZMLZZORM).EC.C.9C) THEN 
ZMLZZCRM) = 1eC-2*ZLRZXCRM)AZLRZYCRM) XV MAZZ CRM) 
ZELZZCRM) = ZKAZZCRM) RCP RZMLZZCRM) 


CELT GY Ct. ee ey 


ZMCLCRM) = YCC2*ZMLZZ¢RM) 
ZMSLCRM) = C200 
ZMMLOCRM) = C.CO 
ZMCLCRM) = YO2*ZMLZZ2(RM) 
ZMwWLCRM) =C.00 
TELZZ(KM) = 1.04 

ENC IF 


ZRFZZCOB/RM) = 1.073 
PFHICCB,/RM) = FQLOR(OB,RM)+5.03 
TMOZECOBsRM) = CHICOBs/RM) RPI*AZREZZ COR RM) X*2% 
1 PHICOBs/KM)/CVAPCOBsKM) 
ErSe IF COSCTYP.EQC.CNTCIG) THEN 
C 
C THE FOLLOWING IF B8LCCK TAKES CARE CF THE CASE WHERE THE NEW FIKE 
C BEGINS A NEW HCT LAYER IN THE ROOM. 
IF CZMLZZ(RM).EC.C.00) THEN 
ZMLZZCRM) = 1eCe2*xZLRZIXCRM)DAZLRZYCRM) XVMAZZCRM) 
ZELZZCKRM) = ZKAZZCRM)&CPRZMLZZCRM) 


ZMCLCRM) = YCC2*2MLZZ (RM) 
ZMSLOCRM) = C.CO 

ZMM¥LCRM) = C.CC 

ZMCLCRM) = YO2*ZMLZZ¢(RM) 


ZMwELCRM) =C.00 
TELZZ(RM) = 1.04 
ENC IF 
ZRFZZ(OBs/RM) = ZRFZOCCBARM) 
FHICC8-RM) = FOLCRCOBs/RM)+5,03 
TMCZEC(CB/RM) = CHIC OBs/RM) *PIXZREZZCCE SRM) ee 2% 
1 PHI(CC3/RM)/CVAPCOBsRM) 
ELSE IF COSCTYPLEQ.STRTUP) THEN 
CO 1¢C R = TrKRCCHS 
ZORZZCR) = CCC 


C WE MUST START WITH A NOA“ZERO LAYER MASS IN EACH RCCM BECALSE: 
C 1) THE CCNCENTRATICN ECLATICNS ARE SINGULAR WHEN THE LAYER MASS 
C IS C.0Cs ANC 2) IF WE START WITH A LAYER MASS CF O.CG- THE LAYER 
C TEMPERATURE WILL BE DISCONTINUOLS WHEN CNE ROCM STARTS TO PCUR 
C HCT GASSES THRCUGH A VEAT INTO A PREVIOUSLY UNINVOLVED ROOM. 
C WE THEREFORE START hITH A LAYER DEPTH CF 1 CM IN EACH RCOM. 
Ye CDRYRCRD) “THEN 
ZMLZZCR) = ToC T2xZLRZXCRIAZLARZYCR)*XVMAZZCR) 
ZMCLCR) = ZMLZZCRI*YCC2 
Z¥™MLCR) = O.CC 
ZMCLOR) = ZMLZZ(R)*YC? 
ZMSLCR) = O.CC 
ZMWLCR) = O.F 
ZELZZCR) = CPRZKAZZCRI*ZMLZZ2(R) 
TELZZC(R) = 1.04 
ENG TE 
C VARIABLES INCEXEC BY OBJECT WITKIN THE RCOM: 


CO 110 0 = 41/08 4S(R) 
IF CSTATECO-R)SEQeFLAME) ZMOZZ(0-R) = ZMCZOCC-R) 
C IF THE GBJECT IS NOT BURNING, THEN ZMOZZ HAS BEEN INITIALIZED 
CAN SETSYS. 
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IF CSTATECO/R) wECe. HEATNG) ZKOZZC€0-R) = ZKAZZCR) 
IF (STATECO-/R) EQ. FLAME) THEN 
IF (CFIRTYPCO/R) «EQ.GROWNG) THEN 


ZRF2ZZ¢C/R) 
ELSE 
ZRFZZC0-R) 
ENO IF 
PHICO/R) = 
TMOZECC,R) = 
ENO IF 
11C CONTINUE 
120 CONTINUE 


= ZRFZO(CAR) 
= 1.03 


ee OR 
CHICC/RIXPIXZRFEZZCO/R) &R2ePHI COR) /CVAPCLOAR) 


VARIABLES INOEXEC BY WALL: 


Co 14€ W = 1TrhWA 


LLS 


AQuZZ(m) = C.00 


U0 ..730 SIDE = 
IF CWLINK CSI 
ZKA = ZKAC 
ELSE 
ZKA = ZKAZ 
2 ip a 
ZKWZZCSIODE sh 
13C CONTINUE 
140 CONTINUE 
ENC IF 


NOW WE USE THE NUMERIC 
FOR THE VARIABLES. 
FIRST,» PACK ThE ESTIM 
VECTOR: 
CALL PACKX(X) 


NOW CALL TRE PRYSICAL 
THE ELIMINATED VARIABL 


172 
CE,W).5Q.0) THEN 
UT 
ZCWLINKCSIOEsW)) 


») = ZKA 


S TO TRY TC GET A SET OF CONVERGED VALUES 


ATED VALUES FCR THE VARIABLES INTC THE X 


SUBRCLTINES TC GET ESTIMATED VALUES FCR 
ES. 


CALL FUNCTCX/ZERO-TIME) 


COPY THE OUTPUT OF THE 
PRCPER PLACES IN X. 


ELIMINATED WARTABLE EQUATICAS INTO TRE 


D0 150 C=FNUM+GNUM+HKNUM41, SIZE 


X(C) = ZEROCO) 
15C CONTINLE 


X NCW CONTAINS A CCMPLETE SET CF ESTIMATES FOR THE PHYSICAL 


VARTABLES. WE NOW ATT 


EMPT TO GET AN EXACT SOLUTION. 


INFORM THE USER THAT PRCGRAM IS ABCUT TO TRY TC GET 


THRCUGR THE CISCONTINU 


LUY s 


IF COSCTYPsEQsERNCUT) THEN 


WRITE CIWCSK-151) 
WRITE CIWTTY4151) 


OB,/RMsTIME 
O8/RMsTIME 


een FORMATCXs/°ATTEMPTING TO BURN CUT OBJECT-°I2,° IN ROOM’ » IZ, 


1 “KT. TIMES oF ieee 


ade | 


ELSE IFCCSCTYP.LEQ.HEATIG) THEN 


WRITECIWCSK,152) 
wRITECIWTTYs152) 


CBsRMs TIME 
CB/RMs TIME 


152 FCRMATCXs° ATTEMPTING TO IGNITE OBJECT’ ,»I2e° IN RCCM’oI2e 


1 © pilot UA. Mesee Pile ee 
ELSE IFCOSCTYP.EQ. 
wRITECIWCSK,153) 
wRITECIWTTY,153) 


* DUE TO HEATING.*) 
CNTCIG) THEN 
CB/RM-TIME 
CBsRM, TIME 


pei FORMATCX,° ATTEMPTING TC IGNITE CB8JECT°’-I2-° IN RCCM%s Ie, 


Pee pete hee be eral dr Oe de Se 
ELSE IFCOSCTYP.EQ. 


CUE TO CCNTACT WITH FLAMES,°%) 
STRTUP) THEN 
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wWRITECIWCSK,154) 
WRITE CIWTTY-154) 
154 FORMATCX+/°ATTEMPTING TO GET INITIAL VALUES FCR THE RUN.) 
ELSE IFCCSCTYPLEQ.SPLOVR) THEN 
WRITE CIWOSK,1546) RM 
WRITECIWTTY-1546) RM 
1546 FORMATO” SATTEMPTING «TO INITIALIZE THE LAYER IN ROCM %,I2) 
ENC IF 


CALL SCALECXs/XMAX) 


C SCALE THE FIRST TIME CERIVATIVES EN X FOR 4&4 SIZE 0O.CO TIME STEF. 
CO 1545 C=SIZE+1-2x%SIZE 
x€O) = 0.00 
1545 COATINLE 
C 
CALL EVJACCFNUMSX/EPSsXMAXe TIMES FNUM*FRUM4+1 -FNUM*tGNUM*SC D0, 
1 FNUM*GNLUM4141.00,/SIZEsMAXVRI,PIVOTs¢SINGs JACrZ ZERO) 
IF (CSIANG) THEN 
C THE GALSS“SEIDEL MATRIX WAS SINGULAR. 
wRITECIWCSK,155) 
wRITECIWTTY-155) 
155 FORMATCXs° THE GAUSS SEICEL MATRIX IS SINGULAR.”) 
ELSE 
CeMAIRIXSGsKe. TRY ATO SOLVE ECS. 
CALL CCORECTCJAC-20C-TIME-X/FNUM4*+1-FNUMtGNUMZSIZEZC.090 
2 FNUMtGNUMt*1,MAXVRIsSFNUMs PIVOTS FNUMH141.-00/¢Z22FNUMs 
= EPS/CE.DO*DOBLECSIZE)) + XMAXse CONVO ZERC) 
IF CCCONV) THEN 
RETURN 
ESE 
WRITE CIWTTY-190) 
WRITE CIWOCSK,-19C) 
150 FORMATCX,°GALSS SEIDEL COULC NOT SOLVE THE ECUATIONS.”%) 
EXD LF 
ENE@LIE 
C COME HERE IF THE GALSS~SEICEL METHCCD DCESN°T WCRK. 
CALL EVJACCFENUM*GNUMFtHNUMS XZ EPS oe XMAXeTIMESFNUMSFNUM +1, 
1 FNUM4+GNLM,70.CO,s 
1 FNUM*GNUM41,1.00/SIZE/MAXVRI-SPIVOTs/SINGs»JACsZ2/ZERO) 
IF CSING) THEN 
C THE NEWTON MATRIX IS SIAGULAR. 
WRITE CIWCSKs157) 
wRITECIWTTY-157) 
4 iets FCRMAT(CX,*° THE NEWTON MATRIX IS SINGULAR. BOMBING OUT.”) 
ELSE 
C THE MATRIX IS C.K. TRY TO SOLVE TRE EQUATICNS. 
CALL CCRECTCJUAC/-ICsTIMEs Xe FNUM4+1,-,FNUM*tGNUMsSIZE,0.007 
2 FNUMF+GNUMt1sMAXVR1Is FNUMt+GNUMFtRNUMSPIVCT eS FNUMt121.0Ce Ze F NUM 
3 EPS/CE.DOXCBLECSIZE)) -XMAX-CONVs0-ZERC) 
IF CCCNV) THEN 
RETURN 
ELSE 
WRITE CIWTTY-160) 
WRITE CIWOSK,-1460) 
16C FORMATCXs°NERKTCN’°’S METKCD CCULC NOT SOLVE TREE ECUATIONS. 
41> @OMBIAG-CUT.*) 
EAD IF 
ENC IF 
STCP 
ENC 
SUBRCUTINE SCALE CX,XMAX) 
IMPLICIT IATEGER (A-Z) 
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REAL®& XMAX(*) 4X (*) 
C 
C+ PART CF MCCULE INTERFACE, 
C RETURNS A VALUE FOR EACK PHYSICAL VARIABLE THAT REPRESENTS 
C THE MAGNITUCE CF A SIGNIFICANT VALUE OF THAT VARIABLE. 
C 

SAVE 
SINCLLODE 9/DIMN.CMN 

INTEGER INSYS 

COMMON /SYSPTR/ INSYSCMAXVRS 41) 

INTEGER INCEX 

REAL*8 XSCALE 


C COMMON /SCALER/ CONTAINS CONSTANTS THAT REPRESENT THE SMALLEST 
C VALUE CF SIGNIFICANCE CF VARIABLES IN COMMON /VAR/. 
COMMCN /SCALER/ XSCALECNVARS) 


C 
C COMMON /SCALER/ IS ACCESSED USING XSCALE AAC INSYS 
C FCR ALL VARIABLES. 

INCEX = 1 


C WHILE INSYSCINCEX)<90 CC 
1C IF CINSYSCINDEX) .EG. OF GC TO 20 
XMAXCINDEX) = MAXCABSCXCINDEX) )-XSCALECINSYSCINDEX))) 
INGCEX = INDEX + 1 
GO Tc 10 
20 COATINLE 
RETURN 
ENC 
SUBRCUTINE SETSYSCFNUMsGNUMsHNUMsINUMs SIZE) 
IMPLICIT INTEGER CA=2Z) 
INTEGER FNUMsGNUMsHNUMsINUM, SIZE 


+ 


FART CF MCOULE INTERFACE 


THIS SUBROUTINE SHOULD BE CALLEO AT THE BEGINNING CF EACH TIME 
STEP TC CETERMINE wWRICh VARIABLES ARE IN TRE SYSTEM, TRAT IS 
WHICH VARIABLES ARE PHYSICALLY MEANINGFUL AND FOTENTIALLY 
VARYING AT THE CURRENT FOINT IN THE CALCULATION. THE SUBRCL=- 
TINE LCCKS AT VARICLS FLAGS TO CETERMINE WRICH VARIABLES ARE 
IN THE SYSTEM THEN SETS UP THE POINTER ARRAYS INSYS ANC PACK. 
INSYS IS AN ARRAY CF POINTERS INTO THE FIRST SECTICN OF THE 
COMMON 8LOCK /VAR/ WHICH POINTS TO THE VARIABLES THAT ARE 
CURRENTLY IN THE SYSTEM. THE CROER CF THE POINTERS IN INSYS 
DETERMINES THE CROER IN WHICH THE VARIABLES ARE PACKED FROM 
/VAR/ INTO THE NUMERICAL VECTOR X IN ALDIFF. PACK IS AN 
ARRAY CF PCINTERS INTO /VAR/ WRICH POINTS TC TROSE VARIABLES 
WHICH ARE THE CUTPUT CF THE EQUATICNS NEEDEC TC SOLVE FCR THE 
VARIABLES IN TRE SYSTEM. THUS» FUNCT USES THE ARRAY PACK TC 
SELECT THE VARIABLES ANC THE CRCER FOR REPACKING IATO TKE 
ARRAY ZERO. 


RECALL THAT THE NUMERICAL PROBLEM CONSISTS CF RCOT FINCING 
PROSLEMS, CIFFERENTIAL EQUATIONS, FIXEC POINT EQUATIONS 

ANO ELIMINATED VARIABLE EQUATIONS, IT.&e THE PRCBLEM HAS THE 
FORM 

FCUsVewer T) 

GOUsVebWsrT) 

HCUsVeweT) 

I(LsVsews T) 

THEN INSYS STORES THE PCINTERS TO UseVseWeY¥ CCNTIGUOUSLY AND 
IN THAT ORCER. PACK STCRES THE POIATERS TC THE OUTPUT CF 
THE VECTOR VALLED FUNCTIONS FeGeHe-I CONTIGLCUSLY ANC IN THAT 
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SINCLLOE 9-DIMN.CMN 
SINCLUCE 9,BLCNG.CMN 
SINCLUDE 9-VARE6.CMN 


THE FOLLOWING LINES SET UP A BLOCK CF PARAMETERS OF POINTERS 
INTC /VAR/. FCR EXAMPLE, PTELZZ+1 POINTS TC TELZZ(1) IN /VAR/. 
SINCE MANY CF TRE VARIABLE NAMES IA SECTICA 3 CF VAR ALREATY 
HAVE 6 CHARACTERS, THE POINTER NAME FOR THESE VARIABLES ORCPS 
THE D PREFIX ANC REPLACES IT wITH A Q PREFIX. 


INTEGER INSYS/PACKSVARYSFIXED/REGIMI-REGIM2-REGIM3 


PARAMETER (CFIXEC 


= C, REGIM1 = 1, REGIM2 = 2/ REGIM3 = 32) 


COMMON /VARYNG/ VARYCNVARS) 
COMMON /SYSPTR/ INSYSCMAXVRS+#1) 
COMMCN /PCKPTR/ PACK CMAXVRS+1) 


INTEGER PTELZR-PTELZD-PZMLZZ2/PTMLZZ-PZELZZ- 


oO 


PTELZZ/-PZRLZZ/PZKLIZ/PZYLCZ/PZYLDZ/-PZYLMZ-, 
PZYLSZs/PZYLWZ/,PZPRZZ-PZULZZ/-PFCLWR-PFCPWR, 
PFELWCLsPTMCOSsPTMCMSsPTMOSSs/PTMOWSs- PZMCL, 
PZMMLsPZMCLesPZMWLePZMSL eo PAVLSMsZPWVLS, 
PPPLRsFTMCSMsPTIMPSMePTMUSMse PTMOSM,-PTELSM, 
PEPLSMsPBCXYS/-PTMCZFeoPTMWZFePIMSZFePIMMZF, 
PTMCZFePFCPORF-PLKCZZe,PZMC2ZZ, 
PTMCZZ-PTECZZ4FZHPZZ/,PTMPZZ-, 
PTEPZReoPZREZZs¢PZRFZZe,PFOLCRs¢PTEPSMsPTECSM, 
PFQWORsPTMOZBsPPHIsPAQWZZePZKWZZ- 


QZMLZZ2eCZELZZ/-CZMCZZ/-CZMOL-QZMML, 
eZMOLeOZMwL se QZMSLACAQWZZ2Z,0ZRF2Z2Z 


G 

1 

2 

3 

4 

§ 

6 

+ 

? 

é 

] 

1 PTMNET, 

2 

3 

INTEGER CUMs0/R-/We V 

C 


PARAMETER CPTELZR=C, 


OOo NWO UW & tt 


PTELZO=PTELZR+MAXRMS, 
PZMLZZ=PTELZC+MAXRMS, 
PTMLZZ=PZMLZZ*+#MAXRMS, 
PZELZZ=PTMLZZ+MAXRMS, 
PTELZZ=PZELZZ+MAXRMS, 
PZHLZZ=PTELZZ+MAXRMS, 
PZKLZZ=FZHLZZ+MAXRMS, 
PZYLCZ=PZKLZZ*+MAXRMS, 
PZYLCZ=PZYLOZ+MAXRMS) 


PARAMETER CPZYLMZ=PZYLDZ+MAXRMS, 


won Aw & Ww — 


PZYLSZ=PZYLMZ+MAXRMS, 
PZYLWZ=PZYLSZ+MAXRMS, 
PZPRZZ=PZYLWZ+MAXRMS, 
PZULZZ=PZPRZZ*+MAXRMS, 
PTEPSM=PZULZZ*#MAXRMS, 
PTECSM=PTEPSM+MAXEMS, 
PTMCCS=PTEOSM+MAXRMS, 
PTMCMS=PTMOCS+MAXRMS) 


PARAMETER CPTMCSS=PTMOMS*+MAXRMS, 


mN awn &WP) 


PTMChHS=PTMOSS+MAXRMS, 
PZMCL =PTMOWS*+MAXRMS, 
PZMML =PZMOL*+MAXRKMS, 
PZMCL =PZMML*#MAXRMS, 
PZMwWL =PZMOL*#MAXKMS, 
PZMSL =PZMWL#MAXRMS, 
PAVLSM=FZMSL#MAXRMS, 
PWVLS =PAVLSM+MAXRMS, 
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5 PPPLR @PhVLS+MAXRMS) 

PARAMETER CPTMOSMSPPFPLR+MAXRMS, 
PTMPSM2PTMOSM*#MAXRMS, 
PTMUSM®PTMPSM*#MAXRMS, 
PTMOSM®PTMUSM*#MAXRMS, 
PTEUSM*PTMDSM#MAXRMS, 
PEPLSM@PTEUSM*#MAXRMS, 
P3OXYSSPEPLSM*+#MAXRMS, 
PTMOZFSPBOXYS#MAXRMS, 
PTMWZFEPTMDZF+MAXRMS 
PTMSZFZPTMWZF*MAXRMS, 
PTMMZFSPTMSZF+MAXRMS, 
PTMOZFEPTMMZF+*MAXRMS) 

TOIT II IORI IORI IOI III III III SOIT IOI IIIT III ANAT 

PARAMETER (CPFQPCREPTMOZF+MAXRMS, 
PZKOZZ2=PFQPORtMAXRMS*MAXOBS, 
PZMOZZ=PZKOZZ*#MAXRMS *MAXOBS, 
PTMCZZSPZMOZZ+#MAXRMSXMAXCBS, 
PTEQZZ=PTMOZZ*+MAXRMSHMAXCBS, 
PZHPZZSPTEOZZ+MAXRMS*MAXOBS, 
PTMPZZ=PZHPZZ*#MAXRMS*MAXOBS, 
PTEPZREPTMPZZ+MAXRMS*MAXCBS, 
PZRFZZSPTEPZR+MAXRMS*MAXOBS, 
PZHFZZ=PZREZZ+MAXRMSXMAXOBS) 

PARAMETER (PFQLCREPZHFZZ*+MAXRMSRMAXOBSs 
PFQWOR=PFQLOR+MAXRMS*MAXOBS, 
PTMCZB2=PFQWOR+MAXRMS&MAXOBS,» 

= PPHI 2PTMOZB+MAXRMS*MAXOBS) 

{OR IORI IOI III IOI III IOI IOISIISI TOR III III IOI IO IOI TOI III 

PARAMETER (CPAQWZZ=PPHI +MAXRMS*MAXCBS, 
PZKWZZSPAQWZZ*MAXWLS, 

PFQLWR = PZKWZZ + 2*MAXWLS, 
PFQPWR = PFQLWR + 2*MAXWLS, 
PFQLWD = PFQPWR + 2*MAXWLS) 
RO ROTOR RII I OIOIIOIII IOI III III OI IIIOIOII I TORII It 
PARAMETER CPTMNET=PFQLWC+2*MAXWLS) 
FOO I IR III III IOI III RII I SOR IORI OI IOI OIA IIIA A 
PARAMETER (QZMLZZ=FTMNET#MAXRMS, 


= +0 @wO WM © ta nN — 


Orwv ow &S is v) = 


re 


& Wn — 


, CZELZZ=SQZMLZZ+MAXRMS, 
2 CZMCZZ=SQZELZZ+MAXRMS, 
3 GZMCL =QZMOZZ+MAXRMS*MAXOBS, 
4 GZMML =GZMOL4+MAXRMS, 
5 CZMOL =QZMML4+MAXRMS, 
é CZMWL =CZMOL4+MAXRMS, 
? SZMSL =CZMWL+MAXRMS> 
& CAQWZZEQZMSLY4+MAXRMS, 
5 QZRFZZ=ECAQWZZ+MAXWLS, 
+ CUM = GZREZZ+MAXRMS*MAXOBS) 
E 
C 
C 
FNLM = C 
GNUM = C 
HNLM = C 
INUM = ¢ 
SIZE = C 
INCEX = 0 
00 1 R=1/NVARS 
VARYCR) = FIXED 
1 CONTINUE 
c 


C SECICE wWHICh VARIABLES ARE VARYING ACCORDING TO WHICH REGIMES ANDO 
C WHICH ARE FIXEC. SET THE VARIABLES THAT ARE FIXEC TO THE APPRCPRIATE 
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a- aon aan 


an 


aa 


an 


fan) 


oO 


VALUES. 


ZPR2Z2Z 
00 10 R=1/NROOMS 
VARYCPZPRZZ+R) 
1C CONTINLE 


ZML2Z2Z 
CO 70 R=1/NROOMS 


= REGIMI 


IF CLAYRCR)) THEN 


VARY CPZMLZZ#R 


ZEL22 
VARYCPZELZZ+R 


) 


) 


ZMDL/ZMML/-ZMOL/ZMWLE/ZMSL 


VAKYCPZMDOL#R) 
VARY CPZMML#R& ) 
VARY CPZMOL4R) 
VARY CPZMWLtR) 


VARY CPZMSLtR) 
ELSE 
ZMLZZCR) = C.CO 
ZELZZCR) = C.00 
ZMCLCR) = C.O0C 
ZMMLOCR) = 0.00 
ZMCLC(R) = 0.0C 
ZMSL(R) = C.00 
ZMWLOR)D = C.0C 
ENC IF 


ZMOZZ 


CC 5C C=1,-0BNS(R) 
IF CSTATECCA/R)-EQ.FLAME) THEN 
VARYCPZMCZZ+CR-1) *MAXOBStC) = REGIM1I 


ELSE IF (CSTATECC-R).EQ.COLE 


REGIM1 


REGIM4 


REGIM1 
REGIM1 
REGIM1 
REGIM1 
REGIM1 


eOR. STATE 


ZMCZZ(O-R) = ZMCZCCO-R) 

ELSE IF (STATECC-R).EQGeCNSUM) THEN 
ZMCZZ2(C/R) = C.00 

ENC IF 


ERELE 
IF (STATECC,R 


) 


EQ. FLAME) THEN 


IF CFIRTYPCC/R) EC. 
VARYCPZRFZZ + CR-1)*MAXCBS + 0) = 
ELSE IF CFIRTYPCO-R) 
VARYCPZRFZZ + (R71) *MAXOBS + 0) = 


ENDIF 
ELSE 
ZRFZZ(CO-R) 
EXC IF 

50 CONTIALE 


70 COATINLE 
ACwZZ 
CO 80 h=1/NWALLS 
VARY CPAQhZZ+W) 
EC CONTINLE 
ZKLZZ/TELZE 


DC 1CO R=1/NROOMS 


i] 


“ 


C 


R 
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00 


EGIM1 


GROWNG) THEN 


atGe 


POOL) THEN 


REGIM1 


REGIM2 


On 


na 


Cs Ta 


an 


aan 


IF CLAYRCR)) THEN 
VARYCPZKLZZ#R) = REGIM1 
VARYCPTELZO+R) = REGIM1 

ELSE 
ZKLZZCR) = ZKAZZCR) 
TELZOCR) = C.00 

ENC IF 


CO 9C 021,0BJNS¢(R) 


FQPCR 
IF CSTATECO/R)«NESCNSUM) THEN 
_ VARYCPFQPCRECR@1)*MAXCBS40) = REGIM1 
ELS. 
FOPORCO-R) = C.00 
ENC IF 


ZKOZZ 
IF (STATECC/R) @EQeHEATNG) THEN 
IF CLAYR(R)) THEN | 
VARYCPZKOZZ + (R=1)*MAXOBS + C) = REGIM1 
ELSE 
ZKCZZ(CR) = ZKAZZCR) 
ENC IF 
ELSE IF (STATE(C/R) «EC. FLAME) THEN 
ZKCZZ(O/R) & ZKOIGCO-R) 
ELSE IF (STATECC/R) EQeCOLD .ORe STATECOR)EQeCNSLM) THEN 
LKOZZ(C/R) = ZKAZZC(R) 
ENC IF 


TMOZB/ZHFZ2 
IF CSTATECO-R).EQeFLAME) THEN 


VARYCPTMCZB + (R-1)*MAXCBS + 0) = REGIM1 
VARYCPZHFZZ + (R“1)*MAXOBS + 0) = REGIM1 


ELSE 
TMCZECO-R) = C.00 
ZHFZZ(O/R) = 0.00 
ENC IF 
90 . CONTINUE 
10C CONTINLE 


ZKWZZ 
00 120 h=1-NWALLS 
Co 11C SICE=1-2 
PTR = FZKWZZ + 2eCWe1) + SIDE 
VARYCPTR) = REGIM1 
110 CONTINUE 
120 CONTINLE 


TELZRATMLZZ/-TELZZ/-ZRLZZ/ZYLOZ-ZYLOZe ZYLMZe2YLSZ, 
ZYLWZeZULZZ¢AVLSM/ZWVLSsTMUSMeTMOCSM,TEUSM 
00 140 R=1,/NROCMS 


IF (CLAYRCR)) THEN 
PTR = FTELZRtR 
VARYCPTR) = REGIM1 
PTR = PTMLZZ+R 
VARYCPTR) = REGIM1 
PER = PLELTLER 
VARYCPTR) = REGIM1 
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PTR @ FZHLZZ+R 
VARYCPTR) = REGIM1 
PTR = PZYLCZ+#R 
VARYCPTR) = REGIM1 
PER CeSePZYLOCZtR 
VARYCPTR) = REGIM1 
PTK = PZYLMZ+*R 
VARYCPTR) = REGIM1 
PTR = PZYLSZ+R 
VAKYCPTR) = REGIM1 
PTK # PZYLWZtR 
VARYCPTR) = REGIM4 
PTR = PZULZZ+R 
VARYCPTR) = REGIM1 
PTR = PAVLSM4R 
VARYCPTR) = REGIM1 


EL SYé 
TELZRCRK) = C.CC 
TMLZZCR) = C.0C 
TELZZCR) = C.0O 
ZHLZZCR) = C.OC 
ZYLCZCR) = €.CO 
ZYLCZCR) = C.BC 
ZYLMZCR) = €C.00 
ZYLSZ(R) = €.0C 
ZYLWZC(R) = C.CC 
ZULZZCR) = ¢.0C 
AVLSMCR) = C.0C 

ENC IF 


FTR = PWVLS+R 
VARYCPTR) = REGIM1 
PTR = PTMUSM#R 
VARYCPTR) = REGIM1 
PTR = PTMCSMtR 
VARYCPTR) = REGIM1 
PTR = PTEUSM#R 
VARYCPTR) = REGIM1 
C 
C TMOCS-TMOMSsTMCSSsTMOWSsPPLRe~TMOSMs¢TMPSMsEPLSMsBOXYS/TEPSM,TEOSM 
IF CFIROCMCR)) THEN 
PTR = PTMOCS+R 
VARYCPTR) = REGIMI1 
PTR = PIMOMS * R 
VARYCPTR) = REGIM1 
PTR = FTMCSS#R 
VARYCPTR) = REGIM1 
PTR = PTMOWS4R 
VARYCPTR) = REGIM1 
PTR = FPPLRtR 
VARYCPTR) = REGIM1 
PTR = FTMOSM+FR 
VARYCPTR) = REGIM1 
PTR = PIMPSM#R 
VARYCPTR) = REGIM1 
PTR = PEPLSM+R 
VARYCPTR) = REGIM1 
PTR = FBOXYS*+R 
VARYCPTR) = REGIM1 
PR, = PREPS Mat R 
VARYCPTR) = REGIM1 
PTR 32. (PTE0OSM at LK 
VAKYCPTK) = REGIM1 
ELis& 
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C 


C 


TMCOSCR) # C.0C 
TMCMSCR) = 0-00 
TMCWSC(R) = COC 
PPLRCR) = C.0C 


TMCSMCR) = C.CC 

TMPSMC(R) = C.CO 

EPLSMCR) = C.00 

BOxYSCR) = C.0C 

TEFSMCR) = CCC 

TECSMCR) = C.00 
ENO IF 


CO 130 0=1,08NS¢R) 


C FQCLORs/FQWOR 
IF (CSTATECOsR)NESCNSUM) THEN 
IF CLAYRCR)) THEN 


C 
C 
C 


Con 


PTR = PFQLOR + 


CR-1)*MAXOBS + 0 


VARYCPTK) = REGIM14 


ELSE 
FQLCR(O-R) 

ENO IF 

PTR = PFRWOR + 


= 0.00 


CR-1)*MAXOBS + 0 


VARYCPTR) = REGIM1 


ELSE 
FOLOR(O-R) 
FOWORCO-R) 

ENC IF 


= €.00 
= (.0C 


TMCZZ-TECZZ/TMFZZ,-TEPZRsPHI 
IF (STATECC/R)-EQsFLAME) THEN 


ZHPZZ 


13C¢ 


140 CONTINLE 


FQLWOs FOLWRse FCPWR 
CO 160 wW=1/NWALLS 
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FTR = PTMCZZ + (CR-1)*MAXOBS + 0 
VARYCPTR) = REGIM1 
FTIR = PTECZZ + (CR-1)*MAXOBS + O 
VARYCPTR) = REGIM1 
FTR = PTMPZZ + (R=-1)*MAXOBS + O 
VARYCPTR) = REGIM1 
FTIR = PTEPZR + (CR-1)*MAX0BS + O 
VARYCPTR) = REGIM1 
FTIR = PPHI + (R-1)*MAXOBS + € 
VARYCPTR) = REGIM1I 

EL Se 
TMOZZ(0-R) = C200 
TECZZ(0-R) = C.OC 
TMPZZ(O/R) = C.00 
TEPZRCO-R) = C.00 
PHICC,/R) = 0.C0 

ENC IF 

IF (LAYRCR)) THEN 
FTR = PZHPZZ + (CR-1)*MAXCBS + O 
VARYCPTR) = REGIM1 

ELE 
ZHPZZ2€O/R) = ZHRZZCRI = ZHOZZCO-F) 

ENDL IE 

CONTINUE 


oO 


NAO 


aang 


an 


CO 15C SICE=1,2 

PTR = PFCLWC + 2eCWH1)+SIDE 

VARYCPTR) = REGIM1 

R = WLINKCSIOE-wW) 

IF (R «NEw C «AND. LAYRCR)) THEN 
PTR = PFQCLWR + 2%*(W-1) + SIDE 
VARYCFTR) = REGIM1 

EC SC 
FCLWRCSICE-W) = C.00 

ENC IF 


R = WLINKCSIDEsh) 


NOTE TRAT IN THE FCLLCWING CONCITICNAL, SWITCHING THE ORDER OF THE 
ReNELO WITR THE FIRCOMCR) WILL CAUSE A MEMCRY FAULT IN THE CASE 


WHERE KF IS C. 
IF CReNEWO ANC. FIROOMC(R)) THEN 
FTR = PFCPWR + 2*(W-1) + SIDE 
VARYCPTR) = REGIM1 
ELSE 
FOPWRCSIDE-W) = 0.00 
ENCwIF 
150 CONTINUE 
16C COANTINLE 


NOW SET UP THE ARRAYS PACK AND INSYS: 
ROCT FINDING ECUATICNS ANC VARIABLES: 
CO 170 R=1/NROCMS 
INDEX = R 
CALL PUTFTRCPZPRZZ/PTMNET/INCEX/REGIMI/SIZE-FRUM) 
17C COATINLE 


DIFFERENTIAL EQUATIONS AND VARIABLES: 
DO 180 R=1,/NROCMS 
INCEX = R 
CALL PUTFTRCPZELZZ-QZELZZ/INCEX/REGIM1-SIZE/GAUM) 
CALL FUTPTRCPZMLZZ/QZMLZZ/,INCEX/REGIM1/SIZE-GAUM) 
CALL PUTFIRCPZMCL-QZMCL-INDEX/REGIM1-SIZE-/GNLM) 
CALL PUTPTRCPZMSLACZMSLe-INCEX/REGIMIsSIZEs,GNLM) 
CALL PUTFTRCPZMML-QZMMLsINOEX/REGIM1,-SIZE-/GNUM) 
CALL PUTPTRCPZMCL/QZMCL/INDEXs/RECIM1,/SIZE,/GNUPM) 
CALL PUTPTRCPZMWL-CZMWLeINCEX/REGCIMI-SIZE-GNLM) 
CO 175 O=1-/08VSCR) 
INCEX = (R71) *MAXOBS+0 
CALL PUTPTRCPZRFZZ/CZRFZZ-INOEX/REGIMIsSIZE,GNUM) 
CALL PUTPTRCPZMCZZ-CZMCZZ/INCEX/RECIMI/SIZE-GNLM) 
5 CONTINUE 
8C COATINLE 
CC 190 w=1-NWALLS 
INCEX=W 
CALL PUTPTRCPACWZZ-QCACWZZ-INCEX/REGIM1/¢SIZE-GNUM) 
19C CONTINUE 


> 
f 


1 
4 


FIXEC POINT VARIABLES (CAONTELIMINATEDO): 
DO 200 R=1,/NROOMS 

INDEX = R 

CALL PLTFTRCPTELZZ-PTELZZ/INCEX/REGIMN1I-SIZE-HNUM) 

CO 155 C=1-/0BJNSC(R) 
INCEX = CR-1)*MAXOBS + C 
CALL PUTPTRCPPHI-PPHI-INDEX/REGIM1/-SIZE-HNLM) 
CALL PUTPTRCPTMCZB/-FTMCZ8¢INOEX/RECIMIZSIZE-HNUM) 
CALL PUTPTRCPZRFZZ/-PZRFZZ-INCEX/REGIM2,-SIZE-HNUM) 
CALL PUTPTRCPZKCZZ/-FZKCZZ-INCEX/REGIMI-SIZE-HNLM) 
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195 CONTINUE 
200 COATINLE 
DO 210 W=1,/NWALLS 
CC 2C5 SICE=1-2 
INCEX = 2%(Wo1)+SICE 
CALL PUTPTRCPZKWZZ/PLKhZ2Z/INOEX/REGIM1,SIZE/HNUM) 
205 CONTINUE 
210 CONTINLE 
C 
C ELIMINATED VARIABLES ANC ECUATIONS CCNLY THE VARIABLES WHICH MUST 
C BE CHECKED FOR CONVERGENCE ARE SENT TO THE NUMERICS). 
D0 220 R=1/NROOMS 
INDEX = R 
CALL FUTFTRCPAVLSMsPAVLSM,INCEX/REGIN1, SIZE INUM) 
CALL PUTPTRCPWVLSsPWVLS/INDEXsREGIM1,SIZErINUM) 
CALL PUTPTRCPTELZO/PTELZC/INCEX/REGIM1/SIZE,INUM) 
CALL PUTFTRCPFPLR/PPPLRs INDEXsREGIM1eSIZEsINUM) 
CALL PUTPTRCPTELZR»PTELZRe INCEX/REGIM1/SIZEsZINUM) 
CALL PUTPTRCPTEPSM/PTEPSM,INCEX/REGIMIZSIZEsINUM) 
CALL PUTPTRCPIMUSM/PTMUSMsINCEX/REGIMIsSIZE-INUM) 
CALL PUTPTRCPTMOSMsPTMOSM, INCEX/REGIMI/SIZE*INUM) 
CALL PUTPTRCPTEUSM,PTEUSM, INCEX/REGIMIsSIZEs INUM) 
CALL PUTPTRCPTMESM/PTMPSM,INCEX/REGIMI SIZE *INUM) 
CALL PUTPTRCPTMLZZ/PTMLZZ/INCEX/REGINIZ SIZE INUM) 
CALL PUTPTRCPTMOCS/PTMODS,INCEX/REGIN1 sSIZEs ENUM) 
CALL PUTPTRCPTMCSMsPTMOSM, INCEX/REGINISIZESINUM) 
CALL PUTFTRCPBOXYS sPBCXYSsINCEXsREGIMI/SIZEsZINUM) 
CALL PUTPTRCPTEOSM/PTEOSMZINCEX/REGIM Is SIZErINUM) 


CO 215 0=1,08JNS(R) 
INCEX = CR-1)*MAXOBS + C 
CALL PUTPTRCPTMCZZ-PTMCZZ,INDEX/REGIM1-SIZE/INUM) 
CALL PUTPTRCPZHFZZ/FZHFZZ,/,INCEX/RECIM1,SIZEs-INUM) 
CALL PUTPTRCPFELCR-FFOLOCR-INCEX/RECIM1,SIZE-INUM) 
CALL PUTPTRCPZRFPZZ-FZHPZZ/,INDEXsREGIMI,-SIZE-INUM) 
CALL PUTPTRCPFCFOR/PFOPCReINCEX/RECIMI-SIZEsINUM) 
CALL PUTPTRCPFQhOR/-FFQWCRe/INDEX/RECIMI,/SIZE-INUM) 
CALL PUTPTRCPTEFZR-PTEPZRA-INCEX/REGIM1I,SIZE-INUM) 
215 CONTINUE 
220 CCATINLE 
D0 230 w=1/NWALLS 
CO 22StSIWE=172 
INC EX = CW 1) 42 SIDE 
CALL PUTPTRCPFQOLWO/PFQLWO-INCEX/-RECIM1T-SIZEsINUM) 
CALL PUTPTRCPFOCPUR,PFOPHReINCEX/REGIMI/SIZE-INUM) 
CALL PLUTPTRCPFOCLWRAFPFCLWReINCEX/RECIMIsZSIZE-INUM) 
225 CONTINUE 
230 COATINLE 
PACKC(SIZE+1) = ¢ 
INSYSCSTZEt49 120 
RETURN 
ENC 
SUBRCUTINE PUTPTRCVPTRsFPTR/OFFSET/REGIMsSIZE-CIMN) 
IMPLICIT INTEGER (A-2Z) 
INTEGER VPTRsFPIR-CFFSETAREGIM/SIZE/-OIMN 


C 

C THIS SLBROLTINE IS CALLED BY SETSYS TO HELP SET UP THE ARRAYS FACK 
C ANC INSYS. 
C 
$ 


INCLLOE 9/DIMN.CMN 
INTEGER PACKsINSYS/VARY 
COMMON /PCKPTR/ PACK CMAXVRS+41) 
CCMMCN /SYSPTR/ INSYSCMAXVRS+1) 
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COMMON /VARYNG/ VARYCNVARS) 


C 
IF CVARYCVPTRECFFSET).ECZREGIM) THEN 
Siete ore eat. 1 
INSYSCSIZE) = VPTRtOFFSET 
PACKCSIZE) = FPTRtOFFSET 
CIMN = DIMN + 14 
ENC.IF 
RETURN 
ENC 
C 


C NOTE TRAT IF TRKE PRYSICAL SUSRCUTINES ARE CCMPILED wITH DK<LINES 
C THEN LIMIT CHECKING IS CONE. CTHERWISEs NC LIMIT CHECKING. 
CRECKED 

SUBROUTINE ABSRB1¢272Z2Z,2ULZ221) 

IMPLICIT REAL*E (CA-hs 0-2) 


THIS SLBROLTINE CALCULATES THE INFRA~REC ABSORFTIVITY OF TRE HCT 
LAYER. IN THIS VERSICN CUSED IN CFC III), hE APPRCXIMATED IT BY A 
SIMPLE EXPCNENTIAL FIT TO THE CATA OF THE SMOKE ATTENUATION COEFFICIEN 
OBTAINED FRCM THE TREIRC FULL~SCALE BEDROOM TEST (1975), CHANNEL 152. 
IN CFC IIIs HOWEVER,» WE USEC ITS RECIPRCCAL, THE ABSORPTION LENGTH 
LAMCA. 


EQUATICNS EY He MITLERs JULY 1979 
CCCED BY 8B. LONCONs CECEMBER 1979 
ADAPTEC TO NEW PHYSICAL SUBROUTINE FORMAT 2Y Jo GAKM, JULY 1981. 


INPLT FARAMETERS: 
EViZisee TIPE. 


INPLT VARIABLES: 


~CUTPUT VARIABLE: 
ZULZZ =~ INFRA-REC ABSORPTIVITY CF THE HOT LAYER. 


ZULZZ71 = 0.0005 * EXPCO.02&6*Z72722Z) 


A BETTER FIT IS GIVEN BY THE FCLLOWING EQUATION 


AADADANAAANAAAAANAANAAAAAAAANA 


ZULZZ1 = Q.CO94E4TO * ExP(C.0184200*%2T2722) 


LIMITS: 
ZULZZ1 
RETURN 
ENC 

CRECKED 

SUBROUTINE ABSRA2CZYLSZ,/ZULZ21) 

IMPLICIT REAL*E (Amb 0-72) 


aan 


MAXCZULZZ21--00C50C) 


THIS SUBROLTINE CALCULATES THE INFRA-RED ABSCRPTIVITY CF THE HCT LAYER 
wE ASSUME TRE ABSORFTION CCEFFICIEAT IS IN FACT GREYs AND CUE MCSTLY T 
THE SMCKE CCNCENTRATICN IN THE LAYER. THE PROPCRTICNALITY CONSTANT 
USEC IN THE EQLATICON BELOW WAS OBTAINEC BY COMPARING THE I.R. 
ABSCRPTIVITY AS MEASUREC IN THE JULY 6 1977 FULL~SCALE FIRE 

TEST CSEE ChANNEL 126) WITH THE SMOKE CCNCENTRATICN CALCULATICN 
CALCULATED BY LAYROZ IN A STANCARD RUN. 


ECUATICAS BY He MITLERs JULY 1979 
COCED BY B. LONDON, OECEMBER 1979 
ADAPTEC TO NEW PHYSICAL SUBROUTINE FORMAT BY Jo GAM, JULY 1981. 


NADADANAANAANAAAAAANY 


INPLT PARAMETERS: 
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INPUT VARIABLES: 
ZYLSZ ~> MASS CONCENTRATION OF SMOKE IN THE HOT LAYER. 


OUTPUT VARIABLES 
ZULZZ1 =~ INFRA*REC ABSORPTIVITY OF THE HOT LAYER. 


AMAAAANDNM 


ZULZZ1 2 265.D0 * ZYLSZ 


LIMITS: 
ZULZZ21 = MAXC(ZULZZ1, .OCOSCC) 


AaAAD 


RETURN 
ENC 
CHECKED 
SUBRCUTINE ABSRESCZKLZZ/-ZYLOZ/-ZYLMZ-ZYLCZ,/ZYLSZ/Z2ULZ21) 
IMPLICIT REAL*®E CA=h,0-2) 


CALCULATES THE INFRA“REC ABSORPTIVITY CF THE 
HOT LAYER LSING THE ACCLRATE BLT TIME CONSUMING SUBROUTINE 
"EMSVTY" TC CALCULATE TRE EMISSIVITY CF THE HOT LAYER, 


EQUATICNS @8Y He. MITLER, FEBRUARY 1981. 
CCOEO BY Je GARMs FEBRUARY 1981. 
ADAPTEC TO NEW PHYSICAL SUBROUTINE FORMAT BY Je GAKMs JULY 1981. 


INPUT FARAPMETERS? 


INPUT VARIABLES: 
ZKLZZ == TEMPERATURE OCF THE HOT LAYER, 
ZYLOZ -= MASS CCNCENTRATION CF CO2 IN THE HOT LAYER. 
ZYLMZ == MASS CCNCENTRATION. CF CO IN TRE HCT LAYER. 
ZYLOZ =~ MASS CCNCENTRATION OF O2 IN TRE HCT LAYER. 
ZYLSZ == MASS CCNCENTRATION OF SMOKE IN THE HOT LAYER. 


OUTPUT VARIABLES 
ZULZZ1 “~ INFRA~REC ABSCRPTIVITY OF THE HOT LAYER. 


FINC TRE ABSORPTION CCEFFICIENT OF THE SOOT IN THE HOT LAYER. 


A AMAADANAAAAAAARAAAAAAMAANAAAAAN 


EKLEO "2.01 Ue 7DEKZYUSZ/ZKUZZ 


C 
C FINC PARTIAL PRESSURES CF CC2 AND H2C IN THE HCT LAYER. 
C | . 
SUMPRS = ZYLOZ/22.CCO + ZYL0Z/44.01100 + 
1 ZYLMZ2/28.01100 + ZYLS2/18.016CC 
C 


SUPMAS = ZYLOZ * ZYLOZ 4 ZYLMZ 4, ZYUSZ 
SUM = .C355550C + SUMPRS = SUMMAS/28.01600 
PCC2 = ZYLC2/(44.01100*SUM) 
PHeO = ZYLSZ/(18.01€00*SUM) 
C 
C FIANC EMISSIVITY OF. THE KOT LAYER. 
c 
CALL EMSVTYCZKLED,1.00/-Z2KLZZ/PCO2,PH20-EMISS) 
C 
C CONVERT THE EMISSIVITY TO ABSORPTIVITY. 
C 
ZULZZ1 = =LOG(1.00-éMISS) 


Cecilia S* 
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ZULZZ1 = MAXCZULZZ1,.000500) 


C 
RETURN 
ENC 
CHECKED 
SUBROUTINE KEIGHT(CRIZTPSIC/TMCZB/TMOZZ/ZRFLZ/ZHF221) 
IMPLICIT REAL*8& (A-H,0-2Z) 
C 
C CALCULATES THE HEIGHT CF THE FLAME 
C OF A BURNING O8VJECT. 
C 
C EQUATICNS BY Hs MITLER. ADAPTED FROM GFIRC3 CCDE BY Je GAKM. 
C 
C INPLT FARAMETERS: 
c CHI -- FRACTION OF THE HEAT OF COMBUSTICN RELEASED IN TKE 
C FLAME OF THE OBJECT. 
c TPSIC -- INITIAL VALUE FCR THE TANGENT CF THE SEMI- 
C APEX ANGLE OF THE FLAME OF THE OBJECT. 
c 
C INPLT VARIABLES: 
7 TMCZB -- MASS BURNING RATE CF THE FEUL CF THE OBJECT. 
C TMCZZ ~~ NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 
C ZRFZZ -- RACIUS OF THE FIRE ON THE CBVJECT. 
C 
C OUTPUT VARIABLE: 
C ZHFZZ1 -- HEIGHT CF THE FLAMES CVER THE OBJECT. 
C 
IF CABS(TMCZ8) «GT. 1.0715) THEN 
ZHFZZ1 = ZRFZZ * TMOZ@ / CTPSIO * CHI * ABS(TMOZZ)) 
ELSE 
ZHFZZ21 = C.0C 
ENC IF 
C 
C LIMIT CHECK: 
c 
C IF (ZHFZZ1 «LT. O.CCO) THEN 
C ZHFZ2Z1 = C.0C 
c ENC IF 
RETURN 
ENC 
ChECKED 
SUBRCUTINE BURN(CHI-XGAMMAsTMOZZ/TMPZ2Z,TMOZB1) 
IMFLICIT REAL®S (A"K,/O-Z) 
C 
C CALCULATES THE “ASS RATE OF BURNING OF THE FUEL FRCM AN 
C OBJECT. 
c 
C EQLATICNS @Y He. MITLER. ADAPTED FROM GFIROZ COCE BY J. GAHM. 
c 
C INPUT PAKAMETERS: 
c CHI -- FRACTION OF KEAT OF COMEUSTION RELEASED IN THE 
C FLAME OF THE OBJECT. 
C XGAMMA -- AIR/FEUL MASS RATIO IN A FREE SURN OF THE 
C CBJECT. 
C INPLT VARIABLES: 
C TMCZZ -- NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 
c TMFZZ -- MASS FLOW INTO HOT LAYER FROM PLUME OF THE 
c OBJECT. 
C OUTPUT VARIABLE: 
C TMCZ81 -- MASS RATE CF BURNING CF FUEL FROM THE OBJECT. 
c 


TMCZB1 = MINC@CHI*TMOZZ, CTMOZZ4+TMPZZ)/XGAMMA) 
IF CTMCZ81 oLT. OCC) TMOZE1 = -0.C10C0 * CHI * TMOZ2 
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RETURN 


ENC 
CRECKEC 
SUBRCUTINE CREM COR PEE VAP TENA CRT Ee Ci ann ee. 
1 TMOZBsZHPZZ/TEOZZ1) 


IMPLICIT REAL®E CAK-0-2) 


SUBROUTINE TO CALCLLATE THE RATE OT WHICH CHEMICAL ENERGY 
IS RELEASEC FRCM A BURNING CBJECT. 


EQUATICNS EY He. MITLER. ADAPTEC FRCM GFIROZ COCE BY Je GAH. 


INPUT PARAMETERS? 


CP -~ SFECIFIC HEAT CF AMBIENT AIR. 
CF -- FEAT CF CCMBLSTION OF THE CBJECT AS FUEL. 
QVAP -- HEAT OCF VAPCRIZATICN OF THE CBVECT. 
ZKAZZ -- AM3IENT TEMPERATURE OF THE RCCM CCNTAINING 
TRE OBJECT. 
ZKCPY -- TEMPERATURE OF THE ONSET CF PYROLYSIS CF THE CB8JECT. 
ZRFZM ~~ MAXIMUM BURNING RAOCIUS OF THE OBJECT. 
INPUT VARIABLES 
TMC 6 eae 
ZHPZZ -- HEIGHT OF THE GCBJECT°S PLUME. 


OUTPUT VARIABLE? 
TECZZ21 ~~ CHEMICAL ENERGY RELEASE RATE OF THE OBJECT. 


JAN. 2€4 1579. IF THE CBJECT THINKS IT HAS A NEGATIVE PLUME 
HEIGHT SHUTSOFRF ITS FIRE. 


AAADRBAMAANAIANANAAAIAARAAARAAAADAAADAOH 


IF (ZHFZZ «LT. OC.CO) THEN 
TEOZZ1 = C.00 
GO Tc 10 

ENC IF 


TOF AGE FHL CPeCZKOPY-ZKAZZ) 
C PATCH TO PREVENT TECZZ FROM STAYING AT QO. AFTER AN CBYECT MCVES OUT 
CeoF THE HCT LAYER. 

TME = T¥OZB 

IF CTMCZB.LE-0.00) TMB = 1.076 

TECZZ1 = -TMB & TGF 


C 
C LIMITS: 


10 CONTINLE 
IF (TECZZ1 «LE. OCC) THEN 
PENCS = ("6.06 * ZRFZM**2 / QVAP) * QF 
IF CTEOZZ1 wLT. BANOS) TECZZ1 = BNDS 
EUSe 
TEOZZ1 = C.00 
ENC) IF 
RETURN 
ENC 
CHECKED 
SUBRCUTINE CNVLICZLRZX¢ZLRZYAACAVLSMeFOLWOSWVLS/-TELZZ~, 
1 ZELZZ/ZHLZZ-TELZ91) 
IMPLICIT REAL *E CA-hs0-2> 


AAAONOHOY 


FINCS THE KATE CF LOSS CRCERERGY FROM TRG RCT UAYER TiN 
A RCOM CUE TO CCNVECTIVE HEATING OF THE WALLS ANDO CEILING. 


OOCQa a 
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EQUATIONS EY He. EMMCNS. ADAPTED FRCM MARKS VERSION BY Je GAHM. 


INPUT PARAMETERS: 
ZLRZX = LENGTH OF THE ROOM ALONG THE X-AXIS. 
ZLRZY == LENGTH OF THE RCOM ALCNG THE Y-AXIS. 


C 
C 
C 
C 
C 
Cc 
C INPLYT VARIABLES: 

C AQ ~~ CCNVECTIVE ENERGY STCRED IN A UNIT AREA CF HOT WALL. 

C AVLSM =~ TCTAL AREA OF THE VENTS COVERED BY THE HOT LAYER. 

c FQOLWO ~~ CCNVECTIVE HEAT FLUX FROM THE LAYER TC THE ADJACENT 

C WALL. 

C WVLS =~ TOTAL WIDTH OF VENTS WHICH INTERSECTS THE INTERFACE 

C BETWEEN THE HOT ANC COLC LAYERS (I.E. THE AMOUNT BY 

C WHICH TEE PERIMITER OF. THE. WALLS IS DECREASED &Y TRE 

C VENT HOLES AT THE INTERFACE.) 

C Melzz ~~ TIME RATE CF CHANGE OF VICTAL ENERGY OF THE HOT LAYER. 
C ZELZZ ~~ TCTAL ENERGY CF THE HOT LAYER. 

C Lub Lee SR DErAD Obes TRE,HOT LAYER. 

C 

C 

C 

C 

C 


OUTPUT VARIABLE: 
TELZC1 -- RATE CF CRANGE OF LAYER ENERGY DLE TC CONVECTIVE 
HEATING OCF THE WALLS. 


AWC = 2.CCC * € ZLRZX + ZLAZY ) * ZHLZ2 
A = AWC + ZLRZY*ZLRZX ~- AVLSM 
TELZC1 = -A * FQOLWC 


Tree eine ee cei 22 .GT. O.CO > THEN 
TELZC1 = TELZC1 —- Op.SCORCAWOWVLS*ZHLZZ)*AQK*TELZZ 
1 ToT yy 
ENC IF 


LIMITS: 
BNCS = 2.D€ * Z2LRZX * ZLRZY 
TFRG VED. GT. SNCS ) THEN 
TELZC1 = BNOS 
EUSESIF Cnet zod, «LT. ~@NOS ). THEN 
VECZC 1 =. ~8NES 
ENC IF 
RETURN 
ENC 
CHECKED 
SUBRCUTINE CNVW1CZOhKZM/Z0WZN-ZKLZZ2/ZKWZ22-FCLWO1) 
IMPLICIT REAL*& (CA-hs- 0-2) 


AAAMANQAANAN 


CALCULATES THE CCNVECTIVE HEAT TRANSFER TO CNE SIDE OF A WALL 
FROM TRE ACJACENT HCT LAYER. 


EQUATICNS @Y He. EMMCNS 
COCED BY Le. TREFETREN, AUGUST 1977 
ADAPTEC TO NEW PHYSICAL SUBRCUTINE FCRMAT EY Jo GAMMs ALGUST 1981. 


INPLT FARAMETERS? 
ZOWZM -- MAXIMUM HEAT TRANSFER CCEFFICIENT. 
ZOwZN => MINIMUM HEAT TRANSFER COEFFICIENT. 


INPLT VARIABLES: 
ERE CLaST eS LEMPERATURE OF THE HOT, LAYER. 
ZKWZZ => TEMPERATURE CF THE WALL ACJACENT TO THE HCT LAYER. 


OUTFUT VARIABLE: 
FOLWO1 == CONVECTIVE HEAT FLUX TO THE FCT LAYER FROM TRE 
SURRCUNODING WALLS. 
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AADAAAIAAAANAAANAAAAAANANYA 


H 2 MING ZCWZMr ZOWZN + CZCWZM=ZCWZN) * CZKLZ22-300.00)/100.00) 
FQLWO1 ® H * € ZKLZZ = ZKW2Z )D 


C 
Cc LIMITS. 
C IF CFCLWCT .GT. 2.C€) THEN 
C FQLWC1 = 2.06 
C ELSE If CPELWO1T LT. -2.06) THEN 
C FOLWC1 = -2.06 
C ENC IF 
C 
RETURN 
ENC 
CHECKED 


ANNAAAAAAIAAANAAAAHAHAAAAAQD 


MOOAMAA|MAADVAN 


SUBROUTINE CVWICCZBVZZ,/ZHTZZ/-ZHVZZ/ZHLZZ,WVL1) 
IMPLICIT REAL*& CA=H-O-2) 


THIS SUBROUTINE CALCULATES THE WIDTH OF THE SEGMENT OF A GIVEN 
VENT WHICH INTERSECTS ThE INTERFACE BETWEER THE HOT AND COLO 
LAYERS.» ThUS, IF THE LAYER INTERFACE INTERSECTS ThE VENTs THE 
SUBROUTINE RETURNS ZBVZZs ANDO IF THE INTERFACE OOES NOT INTERSECT 
THE VENT TRE SUBROUTINE RETURNS O. WHEN THE INTERFACE IS VERY 
CLOSE TC TRE TCP OF THE VENT» THE SUBROUTINE RETURNS AN INTER@= 
MECIATE VALUE IN ORCTER TO MAINTAIN CONTINUITY. 


ADAPTEC FRCM CAVL CCDE BY J. GAHKM, AUGUST 1981. 


INPUT FARAMETERS: 
Z8VZ2Z =~ WIOTH CF THE VENT. 
ZHTZZ == DISTANCE FROM THE CEILING TC THE TRANSCM OF THE VENT. 
AnVid @o nel ont CEO TRE SVEN Te 


INPUT VARIABLES: 
ZHLZZ == DEPTH CF THE HOT CAYER. 


OUTPUT VARIABLES: 
WVL1 == LENGTH CF THE INTERSECTION OF THE VENT WITH THE 
INTERFACE. 


VS eee STS 

TOP = .200*ZHV2ZZ 

BOTTOM = ,ECO*ZHVZZ 

IF CHVeLT2C.00 «OR. HVeGTeZHVZZ) THEN 
wVL7 = 0.00 

ELSE IF CHV.GE.C.DC «ANC. HVeLT.TOP) TREN 
WVL1 = ZEVZZ*HKV/TCP 

ELSE IFCHV.GE.TOP sANDs HVeLTeECTTOM) THEN 
wVL41 = ZBVZZ 

ELSE IFCHV.GE.BCTTOM .AND. HVeLE-ZHVZZ) THEN 
WVL4 = “ZBVZZ/TOP*CHV@ZHV2ZZ) 

ENC. IF 


SUBROUTINE CXOCNCCZMOL/ZMLZZ/ZYLOZ1) 
IMPLICIT REAL*& CA-Ks0-2) 


SUBROUTINE TO CALCULATE THE MASS CCNCENTRATION GF CARBON 
DICXIDE IN THE HOT LAYER. 


EQS. BY Re. EMMCNS. ACAPTED FROM LAYROS COCE BY J. GAHM, 
JULY 1981. 
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ANODAMQAAANAAN 


AAADAAAAAAANAANAAAANANYN 


INPLT FARAMETERS: 


INPUT VARIABLES: 
ZMCL =~ MASS OF CARBON CICXIOE IN THE FCT LAYER. 
ZMLZZ -~- TCTAL MASS OF THE HOT LAYER. 


OUTPUT VARIABLE: 
ZYLCZ1 ~~ MASS COANCENTRATICN OF CARBON CIOXIDE 
IN THE HCT LAYER. 


PARAMETER (CYCO2 = 5.0-4) 


[ 
IF CZMCLLEZMLZZ e AND. ZMLZZeNE.0.00) THEN 
ZYLOZ1 = ZMOL / ZFL2Z2Z 
ELSE 
Z¥L0Z21 = YCO2 
ENC IF 
C 
C LIMITS: 
C Dee Gly ute tet et ¥COe) THEN 
G ZYLOZ1 = YCO2 
C ELSEelG CrZyY.LOZ ty sGh«. 1600.) sFHEN 
C ZY¥L0Z21 = 1.0C 
C ENC IF 
C 
RETURN 
ENC 
CHECKED 
SUBROUTINE CXOPROCFCO2-TMOZZ-TMCD1) 
IMFLICIT REAL*& (CA-Ks0-2Z) 
SUBROUTINE TC CALCLLATE THE RATE AT WHICH THE FIRE CF AN OBJECT 
PRCCUCES CARBON DICXIDOE. 
ACAPTEC FRCM LAYRO4 CCCE BY Je GAHMs, ALGLST 1981. 
INPLT PARAMETERS: 
FCC2 -- MASS FRACTICN CF CC2 IN THE GASES EVOLVED FROM 
THE PYRCLIZING “CBJECT, 
INPUT VARIABLES: 
TMCZZ => NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 
OUTPUT VARIABLE: 
TMCO1 -~ MASS RATE CF EVOLUTION OF CO2 FROM THE OBJECT. 
TMCO1 = -FCO2 * TMCZZ 
¢ 
RETURN 
ENC 
CHECKEC 
SUBROUTINE ENTPLCTMPLU1) 
IMPLICIT REAL*& CA-F-0-2) 
CALCULATES THE RATE CF ENTRAINMENT CF LAYER GASES 
INTC Tke UFPER PART OF THE PLUME OVER AN OBJECT. 
EQCLATICNS BY He EMMCNS. ADAPTEC FRCM PLUM CCDOE BY Je GAKM, JULY 
INPLT PARAPFMETERS: 
INPLT VARIABLES: 


AAAAOHAQOAHA AY 
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AANAAaAAAAAA 


AAO 


AAAOAAAARAAAAAANRAAAAAAAAAAAANAAAAAANQANAHANANQAA YHA AANANH 


OUTPUT VARIABLES 
TMPLUY =~ RATE CF ENTRAINMENT CF LAYER GASES INTO TRE LPPER PART 
CF THE PLUME OVER THE OBJECT. 


(6/21/78) THERE IS NO ENTRAINMENT CF VITIATED AIR 
INTC TRE PLUMEs AS THE FLUME IS CIN THIS VERSICN) ASSUMED 
TO TERMINATE AT THE LAYER INTERFACE. HENCE: 


TMPLU1SC.00 


LIMITS: 
IF CTMPLUT NEw} OCC) TMPLLI = 0.0C 


RETURN 
ENC 
DEBLGGED AS OCF 8/24/80. 
SUBROUTINE FLOWCCO-CPsVMAZZ/-28VZIZ/-ZHRZZ,ZKTZZ-ZHV22, 
1 ZKAZZU¢2KAZZO+ZHLZZI oe ZHLZ2ZC0/2KLZZ1-Z2ZKLZZ0-2PRZZ1, 
2 ZPRZZC/TEUZZ1¢TMO2Z21¢TMUZZ1) 
IMPLICIT REAL*& (AHs/O-72) 


CALCULATES ENERGY AND MASS FLOW THROUGH A VENTe ¥. 

THE EQUATICNS hERE CERIVED BY ASSUMING BERNCULLISY EQUATIONS APPLY 
IN AN APPRCXIMATE WAY ALCNG IMAGINED STREAM LINES ANDO THE MOMENTUM 
EQUATICN APPLIES IN AN APPROXIMATE WAY ALONG HCRIZONTAL ELEMENTS. 
THE PRESSURE OIFFERENCE ACROSS A VENT IS A PIECEWISE LINEAR FUNCTION 
OF FEIGHT ANC THE TEMPERATURE AND CENSITY ARE FIECE“WISE CCNSTANT 
FUNCTICNS CF HEIGHT. VENT FLOWS ARE CALCULATED BY CIVICING A VENT 
INTC SECTICNS SUCH THAT THE DENSITY OF AIR IS CONSTANT ON EACH SIDE 
OF THE VENT ANC THE SIGN CF THE PRESSURE OIFFERENCE IS THE SAME. 
GIVEN THE PRESSURE CIFFERENCE AT THE BCTTOM OF THE SECTIONs ONE CAR 
USE THE FORMULAS DEVELOPED IN THE PAPER BY EMMONS, MACARTHUR, AND 
PAPE, "THE STATUS CF FIRE MCDELING IN THE LNITECD STATES", TC 

FINC THE PRESSURE AT THE TOP CF THE SECTION ANC FINALLY THE MASS 
FLOhw TEROUCK THE SECTION. 

NOTE: THE FRESSURE IS MEASURED IN METERS OF ATMCSPRERIC AIR. 


COCED BY JCRKN RAMSTELL. ACAPTED TC CFC VI FORMAT BY Je GAHM. 


INPLT FARAMETERS: 

CO -- VENT FLOW CCEFFICIENT. 

CP ~~ SPECIFIC HEAT OF AIR. 

VMAZZ ~= DENSITY OCF AMBIENT AIR. 

ZBVZZ -- WICTH CF TRE VENT. 

ZHRZZ == HEIGHT OF THE ROOM(S) CONTAINING THE VENT CNOTE TRAT 
WE ASSUME THAT ANY TWC ROOMS hWHICH ARE JOINEO BY A 
VENT RAVE THE SAME HEIGHT.) 

ZHTZZ == DISTANCE FROM THE CEILING TC THE TRANSCM CF THE VENT. 


ZHVZ2Z2Z == HEIGHT OF THE VENT. 

ZKAZZI =~ AMBIENT TEMPERATURE CF THE INNER ROOM. 

ZKAZZO =~ AMBIENT TEMPERATURE CF THE OL TER ROOM. 

INPLT VARIABLES: 

ZHLZZI =~ CEPTH OF THE LAYER IN THE INNER ROOM CROOM ON SICE 1 OF 
THE VENT). 

ZHLZ2Z0 ~~ CEPTH OF THE LAYER IN THE CUTER RCOM CROCM ON SICE 2 OF 
TRE VENT). 

ZKLZZI =~ TEMPERATURE OF THE LAYER IN TRE INNER ROOM. 

ZKLZZ0 -~ TEMPERATURE OF THE LAYER IN THE CUTER ROCW. 


ZPRZZI == ATMOSPHERIC PRESSURE AT THE FLOOR OF THE INNER RCOM. 
ZPRZZO == ATMOSPHERIC PRESSURE AT THE FLOOR OF THE CUTER RCOM. 


OUTPUT VARIABLES: 
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AaNaNAAaAN 


aan 


ana 


an 


THE COLD LAYER OF 
OF THE OUTER ROOM. 
TRE WO h LAYER UF 
THE OLTER ROOF. 


TEUZZ1 == ENERGY OUTFLOW FROM THE HOT LAYER OF THE INNER RCOM 
THROUGH TRE VENT. 

TMCZZ21 ~= MASS CUTFLOW THRCUGH THE VENT FRCM 
TRE INNER ROOM INTO THE COLD LAYER 

TMLZZ21 ~~ MASS CUTFLOW THRCUGH THE VENT FROM 
THE INNER ROOM TC THE HOT LAYER CF 

PARAMETER ( G = 9.8C0 ) 

TEL = C.00C 

TML = C.00C 

TMC = €.00C 

R1 = 1.CC0O 

R2 = 1.C00 


HT IS THE CISTANCE FRCM THE FLOOR TO THE TRANSCM CF THE VENT. 
HV IS THE CISTANCE FROM THE FLOOR T0 THE BCTTOM OF THE VENT. 


Mie So cP Rese CALL 

Mv se. HT = ZRVZZ 
HLI IS THE CISTANCE FRCP THE FLOOR TO THE ECTTCM OF THE HOT LAYER 
IN THE INNER RCOM. HLO IS THE CORRESPCNCIAG DISTANCE IN THE 


CORRESPONDING CISTANCE FOR THE CUTER RCC. 
HLI PERL i een et 
HLC ENR 2 20 = LHL Z ZC 
CELTAP ZPRZZI ZFRZZC 
RU1 ZKAZZI / ZKLZZI 
RU2 ZKAZZ0O / ZKLZZ0 
TOP C.000 
PSC1 SCRTCABSC(CCELTAP)) 

BEGIN MAIN LOOP 

10 BOTTOM TCP 
TOP 
IF (CHV 
LEC CeL 
IF CHLO 


HT 

ais Vie 
eGT. 
GT. 


BOTTOM) TOP 
BCTTOM .ANC. 
BCTTOM .ANC. 


RV 
TCP .GT. 
TGP .GT. 


HLI) TOP 
HLO) TOP 


ALI 
HLO 


TCP ANC 8CTTCM CELINEARATE THE SEGMENT CF THE VENT CVER 


WHICH THE FLOW IS TC BE CALLLATED 


IF (TOP «GT. HLI)D RI = RU 

Lee CTOP CGT «BEC B2.= RUS 

HCLOP = DCELTAP 

DELTAP = DELTAP’+° CR2 - R10°*% CTOP = 8CTTOM) 
IF CCELTAP * HOLOP .LT. O.CO) THEN 


CHANGE IN CIRECTION CF FLOW CETECTEC. 
SEPARATE CALCULATICN INTC ThO PARTS. 


TOP = BOTTOM = HGLOP / (R2 = R1) 
CELTAP = 0.006 
ENCIF 
PSO2 = PSU" 
PSC1 = SQRTCABSCDELTAP)) 
IF (TOP .LE. HV) GOTO 1C 
IF CPSC1 .ST. C000 .OR. PSC2 .GT. G.O0LC> THEN 
™ = (TOP - B8CTTCM) * 
1 ROLNCCCABSC(CCELTAP + HOLCP) + PSC1 * PSC2) / CPSCT + PSC2)) 
FUNCTICN RCLNO IS LINEAR FOR LARGE VALLES CF X AND IT RCUNCS OLT 
THE SURI CXIT SO LPGULARITYV AY SMADEOVEEUES- OF .X.. CJOR = 1782) 


TE CCELCTAP + KOLOP .Lit.s G.0DC) THEN 
FLChw GCES FRCM ROOM 2 TC ROCM 1. 
™M TM * SQCRTCR2) 
ore CVOPIGLES HLC2” THEN 
THD =, TMC + TF 
ELSE 
TRU 


TML + TP 
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C 


C 


OAAON 


TEU = TEU + TM * ZKLZZ0 
ENCIF 
ELSe 
TM = TM ® SCRTCR1) 
FLOw GCES FROM ROOM 1 TC ROOM 2. 
IF (TOP wLE. HLI) THEN 
TMO = TMC = TM 
ELSE 
TMU 
TEU 
ENCIF 
ENOIF 
ENCIF 
IF CTCF LT. HF) GOTO 16 
ENC OF MAINA LOCP. 
C.942809 = SCRTC8.0)/3.0 
TEMP = VMAZZ * C.94280900 * CO * ZBVZZ * SCRTCG) 
TEUZZ1 ~CP er TEMP * TEU 
TMUZ2Z1 “TEMP * TMU 
TMCZZ1 =TEMP & THE 
RETURN 
ENC 
REAL*8 FUNCTION ROUADCX) 
IMPLICIT INTEGER CA-~Z) 
REAL*8 Bs Xr¥ 
PARAMETER (8 = 1.00°3) 
ROUNOCX) = X * TANHCABS(X/(€2%8))) 
FOR LARGE xX RCOLNOCX) = Xe 
FOR SMALL X ROUNDCX) =X & ABSCX) / C28) 
JOR =F4s 82 
ROLND = X 
Y = ABS CROUND/B) 
IF CY .GT. 10.000) RETURN 
Y- = "EXP C=¥) 
ROLNC = ROUND * (1.C00 - Y) / (1.000 + Y) 
RETURN 
ENC 


TMU - TM 
TEU - TM *® ZKLZZI 


CHECKED 


NOAANMNANAANDM 


SUBROUTINE FORVC(CO-CPsVMAZZ/,Z98VZZ/,ZHRZZ6ZHT22e2RVils 
1 2ZKAZZI-AZKAZZC/ZHLZZI-ZHLZZ0/ZKLZZI-ZKLZZC,2ZPRZZI- 
2 ZPRZZC/TEUZZ1-TMC221/2MU221) 

IMFLICIT REALE CA-H,0-2) 


WHERE IS THIS ROUTINE??? 2/6/83 


RETURN 
ENC 


SUERCUTINE FLUXCQVAP,2UFZZ/FOCLCR/-FCPOR/-FQWCRe-ZMCZZ/ZRFZZ-PHI1) 
IMPLICIT REAL*®& CA-Hs0-2) 


SUBROUINTE TO CALCULATE THE FLUX INCIDENT CN TRE SURFACE CF A 
BURNING TARGET CBJECT. 


PART OF GFIRO3 IN CFC MARKS. 
EQLATICNS @Y He MITLER.» ADAPTED FROM GFIROZ COCE BY J. GAHM. 


INFLT FARAMETERS: 
QVAP == HEAT OF VAPCRIZATICN OF THE OBVECT.\ 
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an 


aAaAND 


aA 


ZUFZZ ~~ ABSORPTIVITY OF THE FLAME. 
INPUT VARIABLES: 

FQLOR == RADIATIVE FLUX FROM THE HOT LAYER TO TRE SURFACE CF 
THE OBJECT. 

FQFCR ~~ SUM OF THE RACIATIVE FLUXES FRCM THE PLUMES OVER ALL 
BURNING OBJECTS TC THE SURFACE CF THE TARGET CBJECT. 

FQWOR -- RADIATIVE FLUX FROM TRE WALLS TO THE TARGET OBJECT. 

ZMCiZ ~~ MASS CF THE TARGET OS8JECT. 

ZRFZZ ~~ RACIUS OF THE FIRE ON THE TARGET CBJECT. 


OUTPUT VARIABLE: 
PHZI1 => FLUX INCIOENT ON THE SURFACE OF THE TARGET CBUJECT. 


PARAMETER (PI = 3.141592700) 


FINC RACIATIVE FLUX IMPINGIANG CN TARGET OBVECT FROM ALL HOT SOURCES. 
FQCO = FQOPCR + FCLOR + FQWCR 


EFFECTIVE RERACIATEC FLUX 
FORR = MINC132CC.CC,217CO.CC*ZREZZ*2U F272) 


NET FLLX INCIDENT CN FIRE WHEN FLAME HEIGHT NOT SIGNIFICANTLY 
RECUCEC 
FONET = FQCC - FQRR 


MINIMUM FLUX INCIDENT CN FIRE WHEN NOT NEAR BURNOUT 
FQFLUS = FCLOR + FCWOR 


FOMAX = MAXCFQNET/FCPLUS) 


EFFECTIVE FLUX SEEN BY CFICTITICUS) ENTIRE SURFACE WHEN FUEL NEARLY 
EXHAUSTED 

IF CZRFZZ «GT. O.10€C) THEN 

FOEFF = ZMCZZ*XCVAP/C2.COXPIRZRFZZ**2) 

EWSE 

FOEFF = FOMAX 

ENC IF 


FLUX INCIDENT CN SURFACE OF FIRE 
PHI1 = MINCFOMAX/FCEFF) 


RETURN 
ENC 


CHECKED 


OGaAAAOoOarnrnonqanoqan a 


SUBROUTINE LAYCPTCCPR+VMAZZ/-ZHRZZ/ZKAZZ4ZLRZX/ZLRZYz 
1 ZELZZ/ZHLZ2Z1) 
IMPLICIT REAL*& CAK,0-2Z) 


SUBROUTINE TO CALCULATE THE DEPTH CF THE LAYER IN A ROCF. 


EQUATICNS BY He EMMCNS AND Ke MITLER»} ACAPTED FROM LAYRO4G 
COCE BY Je GAHMs ALGUST 1981. 


INPUT PARAMETERS? 
CP -~- SFECIFIC HEAT OCF AMBIENT AIR. 
VMAZZ -- DENSITY CF AMBIENT AIR. 
SeR2 i GHesont OF  TRELROOM, 
ZKAZZ -~ AMBIENT TEMPERATURE IK THE ROCHM. 
ZLRZX -- LENGTH CF THE RCOM ALCNG THE X~AXTS. 
ZLRZY -- LENGTH OF THE ROCM ALCNG THE Y-AXIS. 


INPLT VARIABLES: 
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C ZELZZ -- TOTAL ENERGY OF THE LAYER. 
C 
C OUTPUT VARIABLE: 
C ZHLZZ1 -- CEPTH OF THE LAYER IN THE ROC. 
C 
ZHLZ21 = ZELZZ / ¢ ZLRZX * ZLRZY * CP * ZKAZZ * VMAZZ ) 
GC . 
C LIMITS: 
c IF (ZHL2Z1 «LT. O.0C) THEN 
C ZHLZ221 = C.00 
c ELSE IF (ZHLZZ1 «GT. ZHRZZ) THEN 
C ZHLZ21 = ZHRZZ 
C ENC IF 
C 
RETURN 
ENC 
CHECKEC 
SUBROUTINE MNXCNCCZMML/ZMLZZ-ZYLM21) 
IMPLICIT REAL®8 (A~H,0-2Z) 
C 
C SUBROUTINE TC CALCULATE THE MASS CONCENTRATION CF CARBON 
C MONOXICE IN THE HOT LAYER. 
: | 
C EQS. BY He EMMCNS. ADAPTED FROM LAYRO4 COCE BY Je GAHM, 
C JULY 1981. | 
C 
C INPUT PARAMETERS: 
C 
C INPUT VARIABLES: | 
C ZMML == MASS OF CAREON MONCXIDE IN THE KOT LAYER. 
C ZMLZZ == TOTAL MASS OF THE HOT LAYER. 
C ’ 
C OUTPUT VARIABLE: 
C ZYLMZ1 -- MASS CONCENTRATION OF CARBON MONOXIDE 
C IN THE HOT LAYER. 
C 
PARAMETER (YCO = 0.CO) 
C 
IF CZMMLeLEeZMLZZ «AND. ZMLZZeNEe0200) THEN 
ZYLMZ1 = ZMML / ZMLZ2Z 
ELSE 
ZYLMZ1 = YCO 
ENC IF 
c 
CUUIMITS: 
C IF (ZYLMZ1 «LT. YCC ) THEN 
C ZYLM21 = YCO 
C ELSE IF (€ ZYLMZ1 .GT. «100 ) THEN 
C ZYLMZ1 = 2100 
C ENC IF 
C 
RETURN 
ENC 
CHECKED 
SUBROUTINE MNXPRDCFCC/TMOZZsTMCM1) 
IMPLICIT REAL®E& (A-hs0-2) 
C 
C SUBROUTINE TO CALCULATE THE RATE AT WHICH THE FIRE CF AN OBVECT 
€ PRCCUCES CARBON MONCXIDE. 
C 
C ADAPTEC FRCM LAYRO4 CODE BY Je GAHM, AUGUST 1981. 
C 
C INPUT PARAMETERS: 
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a 


DAAMDAAAADAAANAAANH 


FCC ~~ MASS FRACTION OF CC EVOLVED IN TRE BURNING CF THE OBJECT. 


INPUT VARTAELESs 
TMCZZ “= NEGATIVE OF MASS PYROLYSIS RATE OF THE OBJECT. 


OUTPUT VARIA@LE: 
TMCM1 == MASS RATE CF EVOLUTION OF CC FROM THE CBVECT. 


TMCM1 = -FCC * TMCZZ 
RETURN 
ENC 
SUBROUTINE NETMASCCP,ZKAZZ-TELZZ/-TMOSMe TMLZZ2-THCSMeTMUSK, 
1 TMNET1) 
IMPLICIT REAL®& CA-K,0-2) 
CHECKS FOR CONSERVATICN CF MASS IN A GIVEN RCOPF. 
EQUATICNS BY He. MITLER. COCED BY Je GAHM, SEPTEMBER 15281. 


INPLT PARAPFETERS: 
Geer eciric HEAT OF AMBIENT AIR. 


ZKAZZ ~~ AMBIENT TEMPERATURE OF THE RCCM. 
INPLT VARIABLES: 

Petes RATE CF INCREASE CF TKE ENERGY) CP THE ‘HOT LAYER. 

TMCSM ~~ TCTAL MASS OUTFLOW FRCM THE CCLD LAYER THRCUGH 
ALL THE VEATS IN TRE RCOM. 

Petr? -- RATE CF INCREASE CF MASS OF “TRE HOT LAYER. 

TMCSM == NEGATIVE CF SUM CF MASS PYROLYSIS RATES OF ALL 
OBJECTS IN THE ROCHM. 

TMLSM -- TCTAL MASS CUTFLCW FRCM THE HCT LAYER THRCUGH ALL 


THE VENTS IN THE RCOM. 


CUTFUT VARIABLE: 
TMNET1 ~~ NET RATE CF INCREASE CF MASS WHICH HAS NCT BEEN 
ACCOUNTED FOR. NOTE THAT WHEN TRE SYSTEM HAS 
CONVERGEC, WE SHCULO RAVE TMNET=HC. 


TMNET1 = TMLZZ — TELZZ/CCP*2ZKAZZ) + TMLSM + TMCSM + TMCSM 
RETURN 

ENC 

SUBROUTINE CXYBRNCXGAMASs/TMCZB,/BOXY1) 

IMPLICIT REAL*8 (CA-h,0-Z) 


CALCULATES THE MASS RATE OF OXYGEN BURNING IN THE PLUME OF AN 
CBJECT. 


INPUT PARAMETERS: 


XGAMAS -- STOICKICMETRIC AIR/FUEL MASS RATIO FCR TRE OBJECT. 
INPLT VARIABLES: 
TACZE -—- MASS RATE CF BURNING CF FUEL FROM THE C8JECT. 
CUTPUT VARIABLE: 
BOXY1 -- MASS RATE CF OXYGEN BURNING IA THE PLLFE CF TRE 
O&JECT. 


PARAMETER (CYO2 = .23180C) 
YC2 -- MASS CONCENTRATICN CF CXYGER IN AMBIENT AIR. 
BOXY1 = YOe * XGAMAS * TMCZB 
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RETURN 
ENC 
CRECKEC 
SUERCUTINE CXYCNCCZMOL/ZMLZZ2-ZYL02Z1) 
IMPLICIT REAL*8 (CA-b,-0°2) 


C 
C SUBROUTINE TC CALCULATE THE MASS CONCENTRATION OCF CXYGEN IN THE 
C HOPVCASER. 
C 
C EQS. BY He EMMCNS. ADAPTED FROM LAYRO4 COCE BY J. GAHM, 
C JULY 1581. 
C 
C INPUT FARAMETERS: 
C 
C INPUT VARIABLES: 
G ZMCL =- MASS OF OXYGEN IN THE FCT LAYER. 
c ZMLIZ 9 <—" TOTAL BASS OFS AEM aO Tw. CA YER s 
C 
C OUTPUT VARIABLE: 
C ZYLOZ1 -- MASS CONCENTRATICN OF CXYGEN IN THE HCT LAYER. 
C 

PARAMETER (CYO2 = 2221800) 
C 

IF CZMCLeLESZMLZZ «AND. ZMLZZ.NE.Q-CC) THEN 

Z¥LO21 = ZMOL / ZPL22 
ELSE 
ZYLOLA* Se ¥ O02 

ENGL. 
C 
C- LIMIZS*® 
C TFL CY ZYECZAV ALT SAC. COM) TTHEN 
C ZYL021 = C€.00 
C ELSE IF *€ ZYLOZ1 .GT. 1.010C*YC2 ») THEN 
C ZYLOZ1 = 1.01C0*YC2 
C ENC. IF 
C 

RETURN 

ENC 
CRECKEC 

SUBROUTINE PLMHTCZHCZZ-ZHRZZ/-ZHLZZ-ZHPZ21) 

IMPLICIT REAL*& CA-#-0-2) 
C 
C SUBROUTINE TC CALCULATE THE HEIGHT CF THE FLUME OVER AN OBJECT. 
c 
C EQUATICNS &@Y He. EMMCNS. ADAPTEC FRCM PLUM CODE BY Je GAHM, 
C AUGLST 1981. 
C INPUT FARAMETERS: 
C ZHCZZa<= HEIGHT OF THE CEJECT. 
C ZHRZZ ~- HEIGHT CF THE ROCM CONTAINING THE OBJECT. 
C 
C INPLT VARIABLES: 
G ZHLZZ =~ DEPTH CF TRE HCT LAYER IN THE ROOM CONTAINING THE 
C OEJECT. 
C 
C CUTPUT VARIABLE: 
LS ZHFZZ1: ==" HEIGHI* CF THE PLUMECCVER THETOS JECT. 
C 

LAR 227 pe eZMR 22s SRO LZ o ZAL LZ 
C 
€ ULMDTss 
C DECC RP Le ie le SLR OL Le) aneN 
C ZHP E21 "StsZHO72Z 
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ELSGraer A CRPLLU SGT. ZERZZ = Z2ZHOZZ.) . THEN 
ZHPZ21 = ZHRZZ = ZHOZZ 


anon 


ENC IF 
RETURN 
ENC 
CHECKEC 
SUERCUTINE POWLCZHRZZ/-ZLRZX/ZLRZY/-TELZC/-TELZR-TEPSK, 
1 weUSer,eet 2s TELL ZA 


IMPLICIT REAL*E CA-t 0-2) 


SUBROUTINE TO CALCULATE THE RATE CF CHANGE CF THE ENERGY OF 
THE HOT LAYER. 


EQUATICNS EY He. EMMCNS AND Fe MITLER. ACAPTED FROM LAYRC4 
CCCE BY Je GAHM, AUGUST 1981. 


INPLT FPARAMETERS: 


EnRZZ =“ SHEIGHT OF THE ROOM. 

ZLKRZX ~~ LENGTH OF THE KOOM ALCNG THE X~AXIS. 

ZLFZY ~~ LENGTH CF THE KOOM ALCNG THE YrAXIS. 

INPLT VARIASLES: 

TELZC ~~ RATE CF CCAVECTIVE HEAT TRANSFER TC TRE HOT LAYER 
FROM THE WALLS IN THE SAME ROCF. 

TELZR ~~ RATE CF RACTIATIVE HEAT TRANSFER TC THE HCT.LAYER 
FRCM ALL HCT SCURCES IN THE SAME RCOM. 

TEFSM -= TCTAL CONVECTIVE ENERGY OUTPUT OF THE PLUMES IN 
TrE RCCM. 

TELSM ~= TCTAL CONVECTIVE ENERGY OUTFLCW TRROUGH THE 
VENTS IN TRE RCOM FROM THE HOT LAYER. 

TEL L2G SIAL SENERGY (OF sie: ol AMER 


CUTFUT VARIABLE: 
TELZZ1 -~ RATE CF INCREASE CF ENERGY OF THE LAYER. 


AAAMAANAAAAIAAIADANADAANCIAIAANAAAARAAAN 


PelLveweeeweroMee TEUSM + TELZO + TELZR 


C 
CEELMITS: 
C rect clll) LT. gaene9) sTHEN 
C TELZ2Z1. = -2,.0$ 
C SLsee ee AV EL 2216 oGts 240998 THEN 
C TELZZUT=4%2. 09 
C ENC. IF 
C 
C SINCE ZELZ2 IS THE FIME INTEGRAL OF TELZZ, LIMITS CA ZELZZ PUT 
C RESTRICTIONS ON TELZZ. NAMELY, IF ZELZ2Z IS AT ITS LOWER LIMIT, 
THEN TELZTZ WUST BE >= C. wHILE IF ZECZZ IS. 4£T IVS UPCER.LIMIT» 
C THEA TELZZ RUST) BEX<= C. 
c Pee hetiees lees Gell) THEN 
G TELZZ1 = MAXCTELZZ1,0.00) 
C EUSE IF CZELZZ .GE. 2.D0E#ZHRZZAZERTKAZILR ZY). THEN 
C TELZZ1 = MINCTELZZ21-0.00) 
C ENC IF 
C 
RETURN 
ENC 
CRECKED 
SUBRCUTINE FULRACCZREZM/ZREZO-2TIG-2ZT2Z22-2RFZ21) 
IMPLICIT REAL*& (CA-Fs0-2) 
C 
C SU3BRCUTINE TO CALCULATE THE RACIUS CF A PCCL FIRE. 
C THE EXFRESSICN USEC FCR THE RATIUS CF A PCCL FIRE FROVICES 
C FOR A SHMCOTRK BLILOD“LP TC MAXIMLM RACIUS TO IMPRCVE STABILITY. 
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EGUATICNS @Y He. MITLER. COCED 8Y J. GAHM, JULY 1981. 


INPUT FARAMETERS: 
ZRFZM == MAXIMUN BURNING RACTUS OF THE CBJECT. 


ZRFZC -- INITIAL BURNING RACTIUS OF THE QBJECT. 
ZTIGH<" \TIFECOE IGNITION OF THE POBUEG IA 
ZTZ2ZE.°~ ABSOLUTE TIME, 


INPLT VARIABLES: 


OUTPUT VARIABLE: 
CREZZAPSSECRADIUS OCF _ THE POCL FIRE. 


AAATAAAANRAAAMAAANANM 


ZRFZZ1°# ZREZM * € 1.00 .~ EXPCHCZ2TZ2Z972TIGI/!Y]66C) 43 


C 
C CIMTUSis 
C 
C IF CZRFZZ1 LT. ZRFZO) THEN 
C ZRFZZ1 = ZRFZC 
C Esc 
C IF CZRF2Z21 oGT.e. ZRFZM) 2KFZZ21 = ZRFZY 
C ENC IF 
C 
RETURN 
ENC 
CRECKED 


SUBROUTINE PWRPLRCZLRZX/ZLRZY/TEPZRe»ZHPZZ/,Z2RFZZeP1PLR1) 
IMPLICIT REAL*E CA-F»,0-2) 


SUBROUTINE TC CALCULATE THE POWER ABSORBED @Y THE LAYER DUE 
TO RADIATICN FRCM THE PLUME OF AN CBJECT. 


EQUATICNS BY He MITLER. ADAPTED FRCM RONL CCOE BY Je GAKM, 
JULY 1581. 


INPUT PARAMETERS: 


ZLRZX == LENGTH OF THE ROOM ALCNG THE X@AXIS. 
ZLRZY *- LENGTH OF THE ROOM ALCNG THE YrAXIS. 
INPUT VARIABLES: 
TEPZR == RACTATIVE POWER OUTPUT FROM THE PLUME CF THE 
OBJECT. 
ZOPZ2 o= BELGHT OF OTHE PLUME OVER THE CE JECT. 


ZREZZ *- RACTUS CF THE FIRE ON THE CB8JECT. 


OUTPUT VARIABLE: 
PTPLR1 -- PCWER FRCW THE PLUME CVER THE OBJECT TO THE HOT 
LAYER IN THE SAME ROCM. 


AA ADAANANANAAANNAIANRANAAAAAMN 


PARAMETER € PI = 3.141592700 ) 


C 
Hy Se ZAP ZZE ST ZREZZ 
PIPLR1 2° .500:'* TEPZR 
1 * € 1.00 - H / SQRTCH*H + ZLRZX*XZLARZY/FI) ) 
RETURN 
ENC 
CHECKED 
SUBRCUTINE PYRCCQVAP/ZRFZMsPHI-ZMOZZ/2ZRFZZ¢TM0221) 
IMPLICIT REAL*S CA-bhs 0-2) 
C 


C SUSRCUTINE TO CALCULATE THE MASS PYROLOSIS RATE OF A BLRNING 
C OSJECT. 
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EQLATICNS BY He 
JULY 1581. 


MITLER. 


INPLT PARAMETERS: 
QvAP 
ZRFZM -- 


INPLT VARIABLES: 


OLTPUT VARIABLE: 
TMCZZ1 


OOOO OAR OA Oe OO OOo 


PARAMETER (PI = 3.1415927D0C) 


Oo 


IF (PHI 
™O = 


eGT. O.CC) THEN 
=Ploe, 2ZRFELE*2 *& PHIVs OVA 


FUEL SXHAUSTION. 


OanoOHN 


IF (TMC eNE. C.0C) THEN 
G = ZMCZZ / (€2.0C*%TKC) 
IF (CABS(G) LT. 30.00) THEN 
TwCZZ1 = TMC * (1.00 —- EXPC(G)) 
EL Se 
TMGZ24 


TMC 


0.CO0 


LAM ITS: 


PEOCU MCL Dae les Ce0C) THEN 
2NCS = 6.06 * ZRFEZM**2 / QVAP 


IF CTMOZZ1 LT. B8NOS) TMCZZ1 = BNOS 


IF (ZMCZZ .LE. C.CC) TMCZZ1 = C.00 


DAAAAADNDANIAAYNN 


RETURN 
ENC 
CHECKEC 


ADAPTED FROM GFIRC3 CCCE BY J. 


HEAT OF VAPCRIZATICN OF THE OBJECT. 
MAXIMUM BURNING RACIUS OF THE CB8JECT. 


GARM, 


PHI == .FLUX IMPINGING Of TRE, SURPACE. OF THES OBJECT. 
ZMCZZ ~~ REMAINING MASS CF THE OBJECT. 
ERB il a RACTUS, OF THE FIRE ON THE OBJECT. 


NEGATIVE CF MASS PYRCLYSIS RATE CF THE OBJECT. 


THE FOLLCWIAG LINES PRCCUCE A SMOOTH CUT-CFF OF BURNING AT 


SUERCUTINE RADFRCZLRZX/ZLRZY/TEPZRe¢ZHLZZe¢ZEPLZZ-ZRFZ2- 


1 ZULZZ/FQ1PW1) 
IMPLICIT REAL*& (CA-h,0-2) 


SUBROUTINE TO CALCULATE THE RACIATIVE FLUX FROM 
ONE OBJECT TC TRE WALLS IN THE SAME ROC#. 


EQUATICNS EY He 
JUNE 1581. 


MITLER. ACDAPTEC FROM RONW CODE 


DAADMDAAAAN 


INPLT FARAMETERS: 


a9 


THE PLUVEC CE 


BY Je GAHM, 


AANMNANDAAAAAAARADAAOM 


Oo 


non 


AAD 


NAAMAND 


ZLRZX -- LENGTH OF ROOM ALCNG XmAXIS. 
ZLEZY -- LENGTH OCF ROOM ALONG Y-AXIS. 


INPLT VARIABLES: 
TEFZR += RATE AT WHICH THE PLUME OF THE OBJECT ADOS ENERGY TO 
THE HCT LAYER. 


LULZZ= “7 DEP THRPCEGIRERCAYER.« 
ZHPZZ -° HEIGHT OF) THE. PLUME OF THE OBJECT, 
EREZZ =“ RAQIUS, CE THE PIR EDOP TNE Ge ucuts 


ZULZZ ~~ ABSORPTIVITY OF TRE HCT LAYER. 


CUTFUT VARIABLE: 
FQ1PW1 =~ RADIATIVE FLUX FRCM PLUME CF THE CBVYECT TO THE 
WALLS. 


PARAMETER (PI = 3.141592700) 


WL = ZLRZX * ZLRZY 
AREA = wh + 2.00 * € ZLRZX + ZLRZY ) * ZHLZ2Z 
RCSG = wh / PI 
BL ee 2ZUL 220A) 2AL 27 
IF (ZULZZ «NE. C.CC) THEN 
THETA = MING 1.0C/ZULZZ2, ZHLZ22/2.060 ) 
ELSE 
THETA = ZHLZZ/2.0C 
ENC IF 
ZHZ 8 2BP Lis Z RP ZZ 


IF (ZHZ2 «GE. 0.00) THEN 
IF (ZHZ .NE~ C.CO) THEN 
XKI = MINC ZH2,- THETA ) 


BELCW, NCTE THAT CCOSCATANCY))=1./SCRTC14YR82) 


SECTHT = SCRT(C 1.00 + RCSQ/CZHZ4XKIDHHZ ) 
COSTHT = 1.CO/SECTHT . 
EXPONNE 81 * SECTHT 
A = COSTHT * € 1.00 - EXPCEXPON)/(1.00-EXPOCN) ) 
ELISE 
A = C.CO 
ENOILE 
FOTPh1 = TEPZR / C2.CC*AREA) * CA + EXP(-B81)/¢61.000481) 
1 ~ ZHZ/SQGRTCRCSO+ZHZ*Z4Z)) 
€O0 TC 10 
ELSE 


CSCTFT = SORTC 1.00 + RCSQ/CZHZ*ZHZ) ) 
SINTRKT = 1.00 / CSCTHT 


EXPON = -81 * CSCTHT 
FCTPh1 = TEPZR/C2.CO*AREA) & € EXP(?81)/(1.0C0+81) + 
1 SINTHT * EXPCEXPCN)/(1.D0-EXFCN) ) 
ENC IF 
LIMITS: 


10 COATINLE 
IF CFQ1PW1 LT. O.CC) TKEN 
FQ1Ph1 = C.O0C 
ELSE 
IF CFCIPW1 GT. 2.06) FQ1PW1 = 2.06 
ENC OLE 


RETURN 
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ENC 


CHECKED 


MNAAMDANMAAAADAAAAAANAADAAANAAN 


SUBROUTINE RADLWCZLRZX/ZLRZY/ZELZZ/ZKLZZ/-ZULZZ-FCLWR1) 
IMPLICIT REAL*S (A-Kk,-0-2) 


SUBROUTINE TO CALCULATE THE RACIATIVE FLUX FROM THE HOT LAYER 
TO THE PCRTION CF TRE WALLS ANC CEILING COVEREC BY THE KOT 
LAYER. 


EQUATICNS @Y He. MITLER. ADAPTEC FROM RONW CODE BY J. GAHM, 
JUNE 1581. 


INPUT PARAMETERS: 


ZLRZX =~ LENGTH OF THE RCOM ALCNG THE X-AXIS., 
ZLRZY =~ LENGTH OF THE ROOM ALCNG THE YrAXIS. 
INPLT VARIABLES: 
PnC2io== OEPTH CF TRE HCT CAVYER DIN THE ROOM. 
ZKLZZ ~~ TEMPERATURE OF THE HOT LAYER IN TRE RCOCM. 
ZULZZ ~~ ABSORPTIVITY CF THE HCT LAYER IN THE RCOM. 


OUTPUT VARIABLE: 
FOCLWR1 -- RADIATIVE FLUX FROM THE HOT LAYER IN THE ROOM 
TC THE PCRTION CF THE WALLS ANO CEILING CCVERED 
BY THE HCT LAYER.. 


PARAMETER (SIGMA = 5.67078) 


C 
CEILNG = ZLRZX * ZLRZY 
CVAREA = CEILNG + 2.00*ZHLZZ*C(ZLRZX*ZLAZY) 
VOLUME = ZLRZX * ZLRZY * ZHLZZ 
BOFAC = 4.CC * 2ULZZ * VOLUME / C(CVAREA+CEILNG) 
EMITTL = 1.00 - EXP -BCPAC/ (1.00 + C.1800*B0PAC) ) 
2 
FQLWR1 = SIGMA * EMITTL * ZKLZZ**4 
C 
Carle i T'S: 
C 
C TF CFOUCWRI «LT. 0.00) THEN 
C FOLWR1 = C.O0C 
C csc 
C IF CFCLWR1 «GT. 2.06) FCLWR1 = 2.06 
C ENGL LF 
C 
RETURN 
ENC 
CRECKED 
SU2RCUTINE RONLCZKAZZ/ZLRZX/-ZLRZY/AVLSMAFQPWRePPLR, 
1 ZHLZZ2-ZKLZZ2/-ZKWZ2Z2/ZULZZ-TELZF1) 
IMPLICIT REAL*®& CA~h-0-2Z) 
S 
C CALCULATES THE ENERGY LCSSES ANC GAINS CF TRE FCT LAYER DUE TO 
C RADIATION USING AN EMPIRICAL VALUE CF CPTICAL CEPTH CREFER TO 
GeeAGEl So” CFC III.) 
C 
C ECUATICNS EY H MITLER 
C COCED &Y Me. WIASLETT,» 8. LONOCNs JUNE 1978 
C CONVERTEC TC NEW FCRKMAT 3Y Je GAHM, JULY 1981. 
e 
C INPUT FARAPMETERS: 
C ZKAZZ ~~ AMBIENT TEMPERATURE IN THE ROCF. 
GC ZLKRZX -~ LENGTH CF THE RCOM ALGNG THE X-AXIS. 
C ZLRZY -- LENGTH CF THE RCOM ALONG THE -YrAXIS. 
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on mm) oe a mm) an oan on an an 


Oo 
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INPUT VAR 
AVLSM 


FQFWR 


IABLESs 

-- TCTAL AREA OF THE VENTS IN THE ROCM CCVEREC 8Y THE 
HCT LAYER. 

“= RAQIATIVE FLUX FROM ALL THE PLUMES IN THE ROOM TO THE 


WALLS IN TRE RCOM. 


PPLR == TOTAL RADIATIVE POWER FROM THE PLUMES IN TRE RCCM TO 


ZHLZZ 
ZKLZZ 
ZKwZZ 
ZULZ2Z 


THE HOT LAYER. 
s~9TOEPTH OF The HOT CATERS 
“= TEMPERATURE OF THE HOT LAYER. 
“> TEMPERATURE OF THE WALLS IN TRE RCOM. 
“> INFRATRES ABSCRPTIVITY OF THE HCT LAYER. 


OUTPUT VARIABLES 
TELZR1 -~ TOTAL RACIATIVE PCWER TO THE HOT LAYER. 


PARAM 


ETER € PI = 3.1415927004 SIGMA = 5.67€-8 ) 


CEILING AREA 


wh = 


VOLLME OF 


ZLRZX * ZLRZY 


RCT LAYER: 


Vs whee ZHU ZZ 


BOUNDING AREA CF HOT LAYER 


Az 2 


oC weCewl te CZLRZY + ZERZX Ie eeHe ZZ) 


MEAN EMISSIVITY CF LAYER: VARIABLE BEAM LENGTH 
APPRCXIMATICN CREFER TO PAGE 756% CRe MITLER’S NOTES) 


ZeEC = 


4.00 * ZULZZ * V/A 


EBAR=1.CCwEXPCZEC/(1.00+.1800*%ZED)) 


RACIATIVE 
CUMMY 


REAT GAIN RATE OF HOT LAYER» EXCLUDING FLAMES 


SARZKLZZ&#4—CWLEAVLSM) RZKAZZ RG 


DUMMY=CUMMY= CA@WL@AVLSM) ®ZKWZZ4RG 
COCTLRE“SIGMA*EBAR*CUMMY 


THE FLAME 


RACIATION ABSCRBEC BY THE CEILING 


CR GOING OLT TRE VENTS IS: 
ECCTFC=FQPWR*CA-WL) 


THE PART OF THE FLAME RADTATION ABSORBED BY THE LAYER IS: 


EOCTA 


=FPLR-EDOTFC 


TELZRIZCCOTLR+ECOTA 


LIMITS: 
BNCS = 2.06 * ZLRZY * ZLRZX 
IF (TELZR1 «GT. BNCS) THEN 
TELZR1 = BNDS 
ECSE“IF CTECZRD eh t creme N eS) THEN 
TELZR1 = -BNCS 
ENG TF 
RETURN 
ENC 
NOT CHECKEC 


SUBROUTINE RONPCZUFZZ-TA/ZTZZZ2/,KOeZRFZZ-2ZHFZIP, 


1 ZL 
IMPLI 


SUBROUTIN 


RZX/ZLRZY/ZHFZZ/-Z2MCZZ/-TMOPs TMOZZ/-TEOCZZA-TEPZR1) 
CIT REAL*E CA-ks 0-2) 


E CALCULATES TCTAL RACIATIVE HEAT LOSS (CTEPZR1) 


FROM TRE FLAME CF AN OBJECT. THE FLAME IS ASSUMED 10 BE 
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A CC 


EQUA 
ADAP 
JULY 


INFL 


INPL 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
F 
C 
C 
C 
C 
C 
C 
C 
C 
. 
C 
C 
\ 
C 
C 
C 
C CUTP 
C 

C 

C 

C NOTE 


C MAXI 
SINCLL 


NE OR CONICAL SELL. 


TICNS GY He MITLER. 
TEC FRCM THE MARKS VERSION BY Je GARM AND BeJe MCLAUGHLIN. 
1$81. 


T PARAMETERS? 

ZLRZX =" LENGTR CF ROOM ALCAG X-AXIS. 

ZLRZY -- LENGTH OF ROOM ALCNG YrAXIX. 

KO =~ CBJECT NUMBER CF THE Ca&JECT. 

Eorere ~~ HELGH) (OP THE FLAMES CVER THE COSECT "AT. THE PREMIOUS 
TIME SILEP 

1 i SA ele ah FA =a 

T -— TEMPERATURE OF THE FLAME CF TRE OBJECT. 


TMCP ~~ NEGATIVE CF THE MASS PYROLYSIS RATE OF THE CBJECT 
AT THE PREVICUS TIME STEP. 

ZUFZZ ~~ ABSORPTIVITY OF THE FLAME OF THE CBJECT. 

T VARIABLES: 

TECTI ——" RATE AT WHICH THE FIRE GCE EINECOSBJECT PRODUCES 
CREMICAL ENERGY. 

TMCZZ -- NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 

ZRFZZ ~~ RACTUS OF THE FIRE ON THE OBJECT. 

ZHFZZ ~- HEIGHT OF THE FLAMES CVER THE CBJECT. 


cmeGie ao nass CF OBJECT. 


UT VARIABLE: 
TEPZR1 ~~ RATE CF HEAT LOSS FRCM THE FLAME GF THE OBJECT VIA 
RAOIATION. 
TEA VRESFOLLCWING INCLUCE FICE TS NEEDED JONCY: TO (GETATHE 


MUP NUMBER CF CEJECTS IN TRE RUN FCR TRE OIMENSIONS CF ARRAYS. 
SE S,DIMN.CMN 
PARAMETER (M01 = MC*MR) 
REAL*& PI-SIGMAsALEFH 
PARAMETER CPI = 3.14159270Cs SIGMA = 5.€70-2,- ALEPH = C.00C) 
LOGICAL SET(CMO1) 
REAL*38 ALPRAQCMC1),-A-BNCSsCOsHeReSIeTEPMAXe TPo Ve XI ZETA 
SAVE SETs/ALPHAC 
CATAPSELST/GNGT SEO TRUE SZ 
EFPCZMCZZ..CES+C.OCG) THEN 
TEPZET = 0.0CC 
RETURN 
ENGS LF 
HYP = SCRTCZHFZZ*ZHFZZ + ZRFZZ*ZRFZZ) 
IFS CHYP NEL OLCC) THEN 
CCSINE CF SEMI“APEX ANGLE CF FLAME. 
GCOVSVZHFZZ 7 RYP 
SINE CF SEMI~AFEX ANGLE CF FLAME. 
Sigs LREC. 7 HYP 


ELS eS 

cc = C.CO 
SI = 1.00 
END SIE 


TFUCZECZ2Z tT. C.26C) TREN 

Peecse CKO): THEN . 
ALFRAC(KO) = ZHFZZP / SORT CABSCTMCP)) 
SETCKO) = .FALSE. 

ENC IF 

bh = ALPHACCKC) * SQRT CA8SCTMO2Z2Z)) 

PYE = SORT (C2RFZZ #) 2RECY SHR *P HKD 

TE ChYP NE CCC) THEN 

CG = H*/ WYP 
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SI = ZRFZZ / HYP 
ELSE 
cc = Q0.0C 
ST =z 1.00 
END IF 
ENC IF 
R = ZRFZZ 
A IS TRE AREA OF CCNICAL SHELL», V ITS VCLUME. 
IF (SIT EQ. O.CC) THEN 
Ay 2° 0.60 
ELSE 
A = PI & Ree2 % ((1.00C + 1.000 / SI)4(1.000 + ALEPH*2#2) 
1 -e 2.000 * ALEPH**2) 
ENC IF 
IF (SI .NE. 0.CC) THEN 
V = (FI * Reed / 2,000) * (€1.C00 - ALEPHR*2) * CO / SI 
ELSt 
v = Q0.CO 
ENC IF 
ZETA = 4,.0CC * V * 2ZUFZ2 / A 
XI = ZETA / (1.000 + 0.1800 * ZETA) 
TEFZR1 = A ® SIGMA *& TeeG& * (1.000 = EXP C-XI)) 
LIVITS 
TEPMAX = -0.430C * TECZ2 
IF (CZTZZZ .GT. 2e00C) THEN 
IF CTEPZR1 «GT. TEPMAX) TEPZR1 = TEPMAX 
ENC IF 


LIMITS: 
IF (CTEFZR1 LT. 0.000) THEN 
TEPZR1 = C.O0CC 
EUSE 
ENCS = 2.006 * ZLRZX * ZLRZY 
IF (CTEPZR1 «GT. BNOS) TEPZR1 = BNCS 
ENC IF 


RETURN 
ENC 


CHECKED 


AAAAADAAARAAAAAAAAAAANAN 


SUBROUTINE RNFFC2CT/-ZHCZZF/ZHOZZT-ZHRZZ/ZRFZIT/ZREZIF, 
ZUFZZ+ZXOZZFeZXOZZTAZYOZZF-ZVOZZT-ZHFZZFeZHFZ2ZT, 
ZHLZZ/ZRFZZFSZREZZTAFOPP1) 

IMPLICIT REAL*& CA=K,0-2) 


SUBROUTINE TC CALCULATE THE RACIATIVE FLUX ABSCRBEC BY THE FLAWE 
OF A BURNING TARGET OBJECT FROM THE FLAME CF A BURNING SOURCE CB- 
JECT. NCTE THAT THE SUBROUTINE ASSUMES THAT THE OBJECTS OC NOT 
OVERLAP ANC THAT TRE TARGET ANC SOURCE ARE NOT THE SAME OBJECT. 
OIFFERS FRCM RNFFOT IN THAT THE CALCULATIONS ARE MULCH 

MORE CRUDE AND SIMPLE. 


EQUATICNS @Y Ha MITLER. ADAPTEC FRCM THE MARKS VERSION BY Je GAHMs 
JULY 1581. 


INPUT FPARAMETERSS 
T *- TEMPERATURE CF THE FLAMES. 
ZHCZZF -- KEIGHT CF THE SOURCE OBJECT. 
ZHCZZT* ~~ KEIGHT OF THE TAKGET CEJECT. 
ZHRZZ ~~ HEIGHT CF THE ROOM CONTAINING THE TWO CBJECTS. 
CKREZIF -= CEVECT RACIUS( DEGTHEZSOURCE. 
ZRFZIT -=- C8JECT RACIUS CF THE TARGET. 
LUFZZ' -~ ABSORPTIVITY OF THE FLAMES: 
LXCZILF om X“COCKOINATE CF THE SCURCE. 
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an 


an 


ZXCZZT == X*COCROINATE CF THE TARGET. 
ZYCZZF =~ Y=COCKOINATE CF THE SCURCE. 
ZYCZZT =~ Y=COCROINATE CF THE TARGET. 


INPUT VARIABLES: 


PHreer ~"eHEIGHT CF THE FLAME OVER UTHE SOURCE SCa'JECT. 

ZHFZZT == HEITGhHT CF THE FLAME CVER THE TARGET CBJECT. 

ZHLZZ ~~ DEPTH CF TRE LAYER IN THE ROOP CONTAINING THE CBJECTS. 
ZREZZF. =~ RADIUS OF THE FIRE ON THE SOURCE ‘CBJECT. 

Dee cieleree RADIUS CF THE FIRE. QN-THE TARGET CBJECT. 


OUTPUT VARIABLE: 
FQFP1 -- RAQOIATIVE FLUX TO THE SURFACE CF THE TARGET TC DUE 
TC THE ABSCRSTICN CF FLUX FROM THE SOURCE IN TRE FLAME 
OF THE TARGET. 


PARAMETER CPI = 3.141592700) 
PARAMETER (SIGMA = 5.67C€-8) 
LOGICAL HIGHT 


PPO ETIRER, CBJECT IS. IN.THE. HOT.L AYER THEN THE FLUX» 70) THES TARGET 
PLAME.15 0. 
IF € 2RRZZ-ZHLZZ LE. MAXCZHOZZF/ZHCZZT) ) THEN 
FOPP1 = €C.00 
RETURN 
ENC IF 


C= SQRTC CZXOZZTWZXOZZF) ee? + CZYCZZT“ZYOZZF)*x2 ) 


IF THE OBJECTS CVEKLAP THEN ASSUME Q. FLUX TO THE TARGET FLAME. 
NOTE TrAT THE FOLLCWING LINE ASSUMES SCUARE OBJECTS. 
LA Oke Ovetil ee eS6 E6227 CO*CZREZIVFZREZI FD, THEN 
FQPP1 = C.90 
RETURN 
ENGALE 


SEE IF THE TARGET IS HIGHER THAN THE SOURCE. 
Die rr 2 Ciete GE. ZHOCZZF J CEREN 
FIGHT = .TRUE. 
EL SE 
HIGHT = FALSE. 
ENC IF 


RENAME VARIABLES SC THAT OBJECT 1 IS THE HIGHER OF SOURCE AND TARGET. 


LF GHIGKT) .THEN 
Kt =e2ZRFizq 
Fidp Sel Rid F 

ASSUME SQUARE CBJECTS. 

KZ = .88€2270C * ZRFZIT 
TE CUCC Oe DO RZ KAZ 21s oe GT ec REZZI). THEN 
AD et eZ RELL Td LAP LLY, 
at RA 
TA1 = 1€00.CC 
ENC IF 
IF €1COO0.0O0*%Z2HFZZF «GT. ZRFZZT) THEN 
TAr?e o% oL RELZES ZANE LR 
GCSE 


TA2 1CCO.CC 


ZHC2ZZT 
ZHOZZF 


Tr 
oO 
mw 
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ZKAP1 = ZUFZZ 
ZKAPZ = ZUFZ2Z 


EUSE 
R1 = ZRFZZF 
Re’ ® ZREZZT 


C ASSUME SQUARE CBJECTS. 

RZ = .8862270C * ZRFZIF 
IF (100O0.CO*ZHFZZT .GT. Z2ZRFZZT) THEN 
TAZ 2 ZREZZV/ CAEL ZT 
ELSE 
TA2 = 1€000.CC 
ENC IF 
IF (TCCO.CO*ZHFZZF .GT. ZRFZZT) THEN 
TAT = ZRFZZF/ZHF2ZZF 
ELSE 
TA1 = 1000.CC 
ENO IF 
APY IR how | 
T2 = T 
HO1 & ZHCZZF 
hC2 = ZHCZZT 
ZKAP1 = 2UF2Z2Z 
ZKAPe = ZUFZZ 

ENC IF 


an 


GET TRIG FUNCTIONS CF SEMI APEX ANGLES: 
CC1 = 1.00 / SQRTC 1.00 + TAT*TAI ) 
ST1 2@ TA te pr. C01 
CSC1 = 1.00 / SI1 

CO2 = 1.00 / SQRT(1.00 + TAS*TA2?) 

SIz@ = TA2 * C02 

COT2 = 1.00 / TAe 

CSC2 0S Ten, J eSte 


C 
C AN AD FOC CRANGE ON 8/1/80: R1 MUST BE LESS THAN RZ FOR CONSISTENCY 
C OF THIS SUERCUTINE. ZRFZZ IS PRESENTLY DEFINED SO AS TO TAKE INTO 
C ACCCUNT BURNING ON THE SIOES OF THE CB8JECT»~ SC IT CCULC BE LARGER 
C THAN TRE OBJECT RADIUS. 

R1 = MINCR1,/R2Z) 
c 

Hl * Jbi loge bie? = HO? 

H1 = R1 * CCT1 

H2 = Re * COT2 

HZ = HC1 -kC2 
C 
C AMCUNT 8Y WRICK HEIGHT CF CCNE 2 EXCEECS HEIGHT OF SLAB 
C ON WHICH CCNE 1 STANDS: 


HU = MAXC h2-HZ- O.CO ) 

= HL *TA2 

GX = 2.00 * SIGMA *® T1%*4 & ZKAP1 *&% ZKAP2 / CORC) 
ST HZ AO RZ7 7 CDH REtR SD 


C RATIO CF ABSORBING VOLUME OF LCWER PART CF CONE 2 TC ITS BCUNDING 
C AREA. 4 TIMES THIS CUANTITY IS CAPFROX.) TRE MEAN BEAM LENGTH: 
LE CCH Its Bede Then 
CL = CCHLU+CDRZ) &H1/ RZ) **3 — HUee3) / 
1 C2600 & CCHUFCE RZ) *H1/RZ)%*24 01 .00FCSC2) +HUHHL RC 1. 00-CSC2))) 


ELSE 
CL = CH2x*3 = HURK3) / 
1 (3.00 * CH2*H2*(1.CO+CSC2) tHU*FL*(1.00-CSC2))) 
ENC IF 
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QU = HL / (3.00*¢1.00+CSC2)) 
C v1 IS PART CF CONE 1 ACT OBSCURED BY THE HCT LAYER. 
TP CRE eh twee) @T HEN 
V1 = C.O0C 
ELSE 
VEG ART WORT £4 *K1 9453400 
TEGRRY SUT. HTtHZ) 


1 V1 = V1 = TAT#TAT&CHZ+H1-HI) **3/2.00 
ENC IF 
tPA BU ANG. OCC) TREN 
ARG = RU/C 


IF CABSCARG) .LE. 1.00) THEN 
ANCLE = ASINCARG) 
a AG 
ANCLE = .50C * PI 
ENO IF 
AU = €.0C * C*O *ANGLE * (CSQRTCHU*HU + OXCI-CI/HL 
ELSE 
AU = C.0C 
ENC hr 
. 
C APU IS THE CAPPROX.) PRCJECTED AREA OF THE UPPER PART CF CCNE ce. 
C APL —~ CF TRE VISIBLE PART OF THE LCWER SECTION. 
IF (HZ «GE. HI) THEN 
APU = G.CC 
ELSE IF CHI .LT.~ H2) THEN 
ARG = (R2 - HI*TA2) / 0 
IF CABSCARG) LE. 1.00) THEN 
ANGLE = ASINCARE) 


ELSE 
ANGLE = .5CC * PI 
ENC IF 
APU = AU = 2.00 * CHD * ANGLE * CSCRTCCH2-HID**240%D)-D) / 
1 (H2-HI) 
ELSE 
APU = AU 
ENC IF 
¢ 
IF CH1 .GT. HC) THER 
ARG = R2 / D 
IF (ABSCARG) «LE. 1.0C) THEN 
ANGLE = ASINCARG) 
ELSE 
ANGLE = .SCC * PI 
ENO IF 
APL = 2.CG * C¥O * ANGLE * CSCRTCHZeh2+D*0)-D)/H2 - AL 
ELSE 
APL = (O-RZ) * (2.D0*HU + CDO-RZ)*HI/RZ) * HI/RZ * TAZ 
ENC IF 
C 
C ZM IS CRCUGRLY) THE MEAN FRACTICN CF THE EMITTING CCNE 
C SEEN BY THE LOWER PART CF THE ABSORBING CONE. 


Cree, Com FR RZ 
LRPOOLF 2". LE. (C.00)° OTFZ eo 7.03 
ZM = MAXC.500 + (1.00 - RZ*XHZ/CHI*OITFZ))xx2/2.0C, 1500) 


WE ARRIVE &T TRE EXPRESSION FCR THE RATE AT WHICH ENERGY IS 
ASSCR8EC BY THE LOWER PART CF CONE 2. 


AAA 


ELT = ¢€.00*% CL * APL 


EUT IS THE PCWER ABSORBED BY THE PART CF CCNE 2 LYING ABOVE THE 
SLA® OF CBVECT 1. 


Gr © Cy 
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EUT 
E12 


2200 * QU * AFU 


GX 


* V1 * CEUT + 2M*ELT) 


IF CHIGHT) THEN 
= E12 & CT2/T1) #4 & (1.C04S129/01.0C4S11) * CO1/CO2 
FoPP1 = E21 / CPI * R1*R1 * (1.004CSC1)) 


E21 


ELSE 


FOPPI 


ENC I 


RETURN 


ENC 
CRECKEC 


F 


E12 / CPI#R2*R24(1.0C+CSC2)) 


SUBRCUTINE RNLHCISTAT/-ZHOZZ/ZHEZZ/ZLRZX/ZLRZY/LZUFZZ, 


1 
re 


ZXOZZ/ZVOZZ/ZKFZZ/ZHLZZ/ZKLZZ/ZREZZ/-2ULZ2, 
FQLOR1) 


IMFLICIT REAL®E& (CA-hs0-2Z) 


JULY 1981 


ZHCZ2 
ZHRZZ 
ZLRZX 


ZLRZY 
LUFZ2 


ZxCZ2 
ZYCZZ 


FCLOR 


ANAADAADAAARAAAAAARAANNADANAAAANAAAAANAANRAAN 


1 


ZR PS Le 
CULZZSs= 


CALCULATES THE RADIATIVE FLUX TO TRE HORIZCNTAL SURFACE 
CF AN CBJECT FRCM TRE LAYER IN THE SAME ROCM VIA A CYLINDER APPROX= 
IMATION CEVEN IF TRE CB8JECT IS BURNING). 


EQUATICNS, EY He. MITLER. ADAPTED FROM MARKS COCE BY Je GAHM, 


INPLT PARAMETERS: 
ISTAT ©= THE STATE CF THE’ COVECT  CISTAT #75 -=25 OBJECT SIs 


BURNING.) 

THE HEIGHT OF THE OBJECT. 

THE HEIGHT OF THE ROOM CONTAINING THE CBJECT. 

TRE LENGTH ALCNG THE X-AXIS OF THE ROCM CONTAINING 
THE OBJECT. 

TRE LENGTH ALONG THE Y"AXIS OF THE ROCM CONTAINING 
TRE OBJECT. 

THE ASSORPTIVITY CF TRE FLAMES OF THE CSVJECT. 

TRE X*COORCINATE CF THE OBJECT. 

THE Y°COCRCINATE CF ThE OBJECT. 


INPLT VARIABLES: 
LOG. Cea 
LOLZ Zaz 
DRUID = 


HEIGHT OF THE FLAMES CVER THE CBJECT. 

THE CEPTH CF THE LAYER IN THE ROOM CONTAINING THE OBJECT. 
THE TEMPERATURE OF THE LAYER IN TRE RCCM CCNTAINIAG TRE 
OBJECT. 

THE RACIUS OF THE FIRE ON THE CBJECT. 

THE ABSCRPTIVITY CF THE HCT LAYER IN THE RCOM 

CONTAINING THE OBJECT. 


OUTPUT VARIABLES 


RACIATIVE FLUX FRCM THE HCT LAYER TC THE SURFACE CF 
THE OBJECT. 


PARAMETER (PI = 3.14159270C) 
PARAMETER (SIGMA = 5.67078) 
OIMENSICN AC4) 


SUM = 


ZLERZZ Mr ENCLZ 


X 


1° 
ZX 
(2 


ZRLZZ 
OZZ°* 29022 
CRZKP@SZACZZY A 2yCLe 


CTURZY Ves LYO22L) oe ekOre 
GCZURZX © ZXOTLY B CLERZY Se 24077) 
C SUM E-FRIME OVER THE FCUR AREAS: 
C.CO0 
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CLO OY C8 CP OO TT OOF OOO OVA | OOo ee 34 


00 10 I=174 


ZZO0 = SQRTC Re + XO*XC ) 
ZEDTISESORT CRS  t) X14xX1 2) 
PerUmPeesetaucee- SORXC/ Re” Vem CHC ee weet eer 707 * 20022 


C7 S°"t.0G = EXP (-2 DOxEXPCT) 
SUM = SUM '*# EC / (1.D0FXCHXO/R2) 
1C CCATINLE 
FOLOR1 = «2500 * SIGMA * ZKLZZ**4 * SUW 


VERY CRUDE APPROXIMATION TC MEAN OPTICAL CEPTH: 


APPROXIMATION IMPRCVED CN JUNE 274 1978: TRIS TAKES ACCCUNT OF THE 
HEATING OF THE FLAME 8Y THE LAYER ANC CONSEQUENT INCREASED KADIATICN 
TO THE SURFACE. 
TP VCISTAT + SEG. 5) TREN 

TAU = ZRFZZ * ZUFZZ 

kYP = SQRTCZRFZZ*ZRFZZ + ZHFZZ*ZHFZZ) 

IF CRYP .NE. C.0C) THEN 

S262 2BEZZ./ wy P 


ELSE 
SI = 1.CC€ 
ENC IF 
FELORY = FELCR1 * CEXPC$TAU) + SI) / (1.06 + STI) 
ent =F 
LIMITS: 


IF CFCLCR1 LT. O.CC) THEN 
FOLOR1 = C.0C 

ELSE IF CFELOR1 .GT. 2-06) THEN 
FOLOR1 = 2.06 

ENC IF 


RETURN 
ENC 
NOT CEBUGGEC AS CF 9/2/81 
SUBROUTINE RNLVCANGV-/KO,ZHCZZ/ZHRZZ/ZLRZXF+2LRZYe-ZXCZZ-2ZYOZZ~ 
1 ZHLZZ/ZKLZZ/ZULZZ-FCLGR1) 
IMFLICIT REAL*& CA-K-0-2) 


CALCULATES TRE RADIATIVE FLUX FROM THE LAYER TC 
THE SURFACE OCF A VERTICAL OBJECT VIA A CYLINDER APPROXIMATICN 
CEVEN IF TRE OBJECT IS BURNING). 


FQUATICNS ®Y H. MITLER. 
ACAFTEC FRCW MARK5 VERSION 8Y BeJe MCLAUGHLIN 


INPLT FARAPMETERS: 


ANGV -- CEVIATICN ANGLE FROM PARALLELISM WITH TKE WALL 
RUANING ALCNG THE X~AXIS. 
KO ~~ AN ICENTIFIER NUMBER FOR THE CBJECT TO DISTINGUISH 
IT FROM ALL CTHER OBJECTS. 
EHCZZ ~="HELGHT OF <THE Ce sect. 
EHRLZ -HSIGHT OF "THE +ROOMS 


ZLRZX -- LENGTH OF THE ROOM ALCNG THE X~AXIS. 
ZLRZY -- LENGTH OCF THE ROOM ALCNG THE Y-AXIS. 
PRGEL =~ 2 COCRGINATE OCFPTREROETECT. 
EVCZZ -= Y-COORCINATE “OF TRE SOBIJECT. 


INPLT VARIABLES: 
CHEE? “= DEPTH CP TRE “HOT LATER. 
PREEL “~~ TERPERATORE “OF TRE SHOT VAYER. 
ZULZZ -- INFRAWREO ABSORPTIVITY CF THE KOT LAYER. 
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C 
C CUTPUT VARIABLES 
C FOLOR1 *= RADIATIVE FLUX FROM THE HOT LAYER TO THE 
C SURFACE CF THE OBJECT. 
C NOTE TRAT THE FOLLCWING INCLUDE FILE IS NEECED ONLY TO GET THE 
C MAXIMUM NUMBER CF O8JECTS IN THE RUN FOR TRE DIMENSIONS OF VARIOUS 
C ARRAYS. 
SINCLUCE 9,/DIMN.CMN 
PARAMETER (C1 = MC*MR) 
PARAMETERCPI = 3.141592700,- SIGMA = 5.€7078) 
OIMENSICN RC2eMC1)-ROT1¢(M01) -MCARCMC1) 
LOGICAL MOAR 
DATA MCAR /MO1*%,FALSE./ 
SAVE MCARs/ROT1IAR 
C 
C FINC TRE EFFECTIVE RACII RCY-KC)» AND RC20KC) AND THE 
C ADJLSTEO ANGLE ROT1(KO) ONLY ONCE CURING EACH RUN. 
IF CeNOTSMCARCKC)) THEN 
MOARCKO) = TRUE. 
ICASE = INTCANGV/SC.0C) 
ROT1(KC) = CANGV“CBLECICASE)*9Q0.00) * €1&€0.0C/PI) 
GC TC (€10,20720-4C0) ICASE+1 
10 XL = ZLR2ZX 


YL = ZLRZY 
A = 2x022 
2B = 2Y022 
GO TC 50 
20 ML = ZLRZY 
YL = ZLR2X 
A = 72YC22 
8 = ZURZX-Z2xXCZZ 
GO Tc 50 
30 XL = ZLRZX 
YL = ZLRZY 
A = ZULRZX = Zx0Z2 
SL LER Ce ae O LZ 
GO TC 50 
4C XL = ZLRZY 
YLO =) URE X 
b= 2ZLRZY = ZYOZZ 
EF = 2xCZ2 


3G CONTINUE 
TRCT1 = TANCRCTICKO)) 
$1 = (XL*A)e*2 * TROTT / 2.0C 
IF (CTROTI*CXL“A) .GT. CYL=8)) 

1 S1 = CXLTAD*CYL"B) = CYL“8) **2/TRCTI/2.0C€ 

S2 = ARKCYL*3) = CYL@B)*e2eTROTI/2.00 
IF (CTROTI*CYL"B) «GT. Ad S2 = A*kA/TROTI/2.0€6 
S3 = A*A*TROT1/2.C0 
IF C(CTROTI#A GT. 2) SF = ARB - BRB/TRCT1/2.0C€ 
Sop ee ALA = BO mS ae oe 
RC1/KC) = SQRTC4.CORCS24S3)/PT) 

RC2,KC) = SQRTC4.CO*SS/PI) 


ENCE 
C 
C FINC DISTANCE FROM CBVJECT TC THE LAYER 
XH Se 2ZHRZZ PLATZ = ZACLZ 
XO = ABS CXR) 
X18 ZECZZE +) XH 


C IS THE C8JECT IMMERSED IN THE LAYER? 
IF (XH .LE~ 0.CC) GC TO 70 

C CASE: C8JECT NOT IN THE LAYER. 
SUM = C.00 
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DO 60 121-2 
BET = ATANCRCI«4KO)/X0) - 
1 XCARCIAZKOI/ CXC HXOFR CIA KOD*ARCI-KO)) 
R2 RCI-KO)ARCI-KO) 
z0 SORTCR2tXO*XC) 
aN SGRTCR24X14%X1) 
@EAM = C2.00*FI/BET) » 
1 CXTXLOGCCZT*tRCIA-KOII/X1) -— XO*LOGCCZOFRCI-KC))/X0) D 
60 SUM = SUM + BET * (1.00-EXPC-BEAM*ZULZ2)) 
FOLOR1 = CSIGMA®ZKLZZ**4/(2.00%PI)) * SUM 
RETURN 
C CASE: CBJECT IMMERSED IN THE LAYER. 
70 Suv = €.00 


CO 8&6 121-2 
R2 = RCIs-KO) *RCI-KO) 
ZO = SQRTCR2+X0*XC) 
Z1 = SQCRTCR24X1%X1) 
FO = C.cc 
IF (xC .WNE. C.00) 

4 PC = 4.00 * XO * LOGC CZO#R¢CIZKO))/xX0 ) 
F1 = C.O0C 
IF (X71 .NEw CCC) 

1 P1 = 4.00 * X41 * LOGE (Z14RCI+KO))/X1 D 


60 SUM = SUM + 2.0C = EXPC$ZULZZ*PO) = EXP C-ZULZZ2°1) 
FOLCK1 = CSIGMA * ZKLZZ**4 / 4.00) * SUM 
RETURN 
ENC 
SUBROUTINE RNPCOTCISTATT-KCFse Ts TMOPF-HFPF, 
1 ZRCZZFe/ZHCZZTAZHRZZ/ZREZIF-ZREZIT/2ZUFZZ- 
2 ZXCZZFe/ZXCZZT/-ZYOZZF-ZYOZZT-TMCZZF/ZHFZZFeZHLZ2Z/ZHPZZFe 
ss ZMCZZF/ZRFZZF/ZRFEZZT/-FC1PC1) 
IMPLICIT REAL*®8& CA-k,s0-2) 
C 
C CALCULATES THE RADIATIVE FLUX FROM THE PLUME OVER 
C A BURNING CBJECT CFIRE) TO THE SURFACE CF A TARGET CB8JECT. ONE 
C FORMULA IS USEC IF THE FLAME IS ASSUMEC TO BE A SHELL CISHELL=1) 
C ANC ANCTHRER IF ACT. TRIS SLERCUTINE ASSLMES TRAT ANY PART CF THE 
C FLAME ABOVE THE HOT/COLC LAYER INTERFACE IS INVISIBLE TC THE 
C TARGET UNLESS THE TARGET IS THE SAME AS THE SOURCE. THE 
C SUBROUTINE ALSC ASSLMES THAT THE TARGET ANT SOURCE CB8JECTS CO 
C NOT CVERLAF UNLESS THE TARGET IS TRE SAME AS THE SCURCE. 
C 
C EQLATICNS BY He. MITLER. ADAPTEC FROM MARKS VERSION BY Je GAKM, 
C JULY 1581. 


C 

C INPUT PARAMETERS: 

C TSTATT “= THE STATE OF THE TARGET" GOS7 Aq T=S; -3-> 

C THE TARGET IS 3URNING.) 

C KOF ~~ THE CBJECT NUMBER CF THE FIRE. 

C RFFF «-- RACIUS CF THE FIRE AT THE PREVICUS TIME STEP. 

C T -~- FLAME TEMPERATLRE. 

C IMCPF ~~ NEGATIVE CF THE MASS FYROLYSIS, RATE OF THE 

C FIRE AT THE! PREVICUSE TIME) STEP. 

C REP “= REIGHT CF TRE FLAME OF THE FIRED Als THE PREVIOUS TIKE STEP. 
C Pours He iGkhi GF THE -GASESOF Ihe, FIRE. 

C ZHCZZT_-~ hEIGHT OF THE. TARGET. 

C ZHRZZ -- HEIGHT CF THE ROOM CONTAINING THE TWO OBJECTS. 
C ERP Ci Pe ee GB JEG. RACTUS Cr OTHESRIRE. 

. ZRFZIT -- CBJECT RACIUS CF THE TARGET. 

C ZUFZZ. ~~ ABSORPTIVITY OF THE FLAME. 

Cc ZXCZZE.-—. X-COCRDTA TAPES CR TTHE EERE. 

C ZXCZZT -- X-COCRDINATE CF THE TARGET. 

C EYCZIE <~- Y¥-COORCINATE CF THE FRE. 


pom 


ZYCZ2Z2T == Y°COCRDINATE OF THE TARGET. 


INPUT VARIABLES: 
TMCZZF == NEGATIVE CF MASS PYRCLYSIS RATE CF THE FIRE. 
ZHFZZF == KEIGHT CF THE FLAMES OVER THE FIRE. 
ZHLZZ => DEPTH CF TKE LAYER IN THE RCOF. 
ZHPZZF == HEIGHT GF THE PLUME CVER THE FIRE. 
ZMCZZF -- MASS CF TRE BURNING CBJECT. 
ZRFZZF =~ RADIUS OCF THE FIRE. 
ZRFZZT -= RAOIUS CF THE FIRE ON THE TARGET CBJECT. 


OUTPUT VARIABLE: 
FQ1P01 =~ RADIATIVE FLUX FROM THE FIRE TO THE TARGET. 


AAAADAAAAAAAAAANAY 


C NOTE TRAT THE FCLLChKING INCLUCE FILE IS NEECED CNLY TO GET THE 
C MAXIMUM NUMBER CF CBJECTS IN THE RUN FOR THE DIMENSIONS OF VARIOUS 
C ARRAYS. 
SINCLLCE 9e/DIMN.CMN 
PARAMETER (M01 = MC*%MR) 
PARAMETER (SIGMA = 5.67078) 
PARAMETER CPI = 3.14159270C) 
PARAMETER (CXMEAN = C.77850C) 


C 
DIMENSION SETCMC1)-ALPHAO(MO1) 
SAVE SET» ALPHACs ISHELL 
LOGICAL SET 
DATA ISHELL»SET /O0,M01*.TRUE./ 
C 
C IF FIRE 1S 8URRT OUTSFUGXT TS 708 
C 
IF CZMCZZF LE. O.CC) THEN 
FQ1PC1 = C.00 
€c Tc 10 
ENC CLE 
C 
C IF EITRER THE SCURCE OR THE TARGET IS IMMERSEO IN TRE LAYER, 
C THEVELCR Lise 
C 
IF (ZHCZZTAGEZHRZZ-ZHLZZ .OR. ZHFZZF.LE.1-071C) THEN 
Fe1PC1 = C.0C 
GC TC 10 
ENC IF 
C 
C = SQRTC C2ZXOZZTRZXCZZFI 42 &€ CZYCZZT“ZVOZZF)ex2 ) 
Fo = SIGMA * TxxG 
C 
C FING THE HEIGHT OF THE? FLAME 
C 
TE SCZMCZZFE LT. «20C) THEN 
C 


C RECLCE THE FEICHT CF THE FLAME NEAR BURNCUT. 
LE” CSETURC ED) 227 HeE NR 
ALFRFAQCKCF) = HFPF/SQRTCABSCTMOPF) ) 
SETCKOF) = FALSE. 


ENC IF 
F = ALPHAQCKOF) * SQRTCABSC(TKCZZF)) 
ELSE 
b = ZRFZZF 
ENC IF 
C 
C FINC TANGENT, SINE» ANC COSINE CF SEMI-APEX ANGLE 
c 


IF (€1.04%H .GT. ZRFZZF) THEN 
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Aaa D 


an 


Cat <3 


TF = ZRFZZF/H 

ELSE 

TF = 1.204 

ENC iF 

CO = 1.00 / SQRTC1.CO+TEXTP) 
Si rr * CO 


RODE Nuacht. 2noz ze 


CASE: TARGET ABCVE THE FLAME TIP. 
Pe eKO ra Gets. THEN 
FO1PC1 = C.O0C 


CASE: FIRE 8ASE ABCVE TARGET. 
EUS EVIF, CAG COLT. 1C.CO0) THEN 
SLA@ ASSUMEC TC BE SQUARE. 


K2 = ZRFZIF * 0.886227C00 
R2 = ZRF22ZT 

ies 6 

8) Aik ia St ard 


THE SECOND INEQUALITY IN THE "IF™ STATEMENT BELOW APPLIES 
JUST SC LONG AS WE ASSUME TRAT THE LAYER IS OPAQUE AS FAR 
AS POINTS EXTERNAL TO TRE FLAME ARE CONCERNEC. 
IF Che CDZ*R2) LT. HZ*RZ wOR.e ZHPZZF*CDOZ2+R2) «LT. HZ2*RZ) THEN 
FQ1F01 = Q.C0 
ELSE 
RT = (€CZ*DZ + HZ*HZ)**1.50€ 
Peotene cr ells H) THEN 
CV = fH = ZHPZZE Dae 


ELoEe 
Cv = C.00 
ENC TF 
IF (OsNE.O.CO) BEAM = HZ & TPHR2 & CCHADZ“HZ4*RZ) HS 
1 - DZ**3*OV) / C2.002O*O*0Z*RT) 


XL = «7700 * CZRFZZF - KZ*RZ*TP/OZ) 
FO1PC1 = F * BEAM/XL * (1.CCTEXPCHZUFZZ*XL)) 
LE MCESTATT O2.EQ. S) «THEN 
TAUT = ZUFZ2*2ZRFZIT 
FOTPC1 = FCTFCT * SXPC-TAL1) 
ENGL 
IF CH*(DZ“RZ) LT. HZ*RZ) THEN 
CFE = (OZ - RZ*HZ/H) / R2 
Pera COS. (CFE? 
FO1PC1 = FQ1PC1 * (1.00 + CCFEXSCRTC1.D0-CFE**2)—-FED/PI) 
ENC IF 
ENC IF 


CASE: TARGET ABOVE THE FIRE. 
EUSE 
Pee Clie les REL ZED FG EN 
v5 (So LR 9 basin 
eLSe 
X1 = MINCZKFZZF-H) = XC 
ENUF 


TF CX1 CE. 0.00) THEN 
FQ1PC1 = 0.CO 
GO. TC IC 

ENO IF 


CALCULATE RACIUS OF THE UPPER PART OF THE CCNE 


Bi Ne 


TSI = O/CZRFZZF = XO*TP) 


ED =~ EPFECTIVE DISTANCE. 


Aon 


IF (TSI «GE. 1.00) THEN 

EC = D * (1.00 + €.278700/6.434900 - TSI*TSI))) 
ELSE 

ED = D * .5C680C * (CTSI**2.825400) 
ENC IF 


XA = xO 
x8 = (XO + X1) 
E02 = EDxx2 


IF (X1 eLE. 100.0C0*XC) THEN 
FQUFCT = X1 *% Xf * (1.000 / SQRTCELCE + XAx*2) 
1 - 1.CCO / SQRTCEC2] + XAwe2 + CZRFZIZF - XARTP)4*2)) 


XA/CO - ZRFZZF*SI 
XB/CO = Z2RFZZEXSI 
ECe + CZRFZZFE*CO)*x2 
SCRTCSA + YBue2) 
SA = SCRTCSA + YA*e*2) 
FQOTPC1 = CSCRTCED2 + XBx*2) = SORTCED2 + XAnee) 
1 = (SB~-SA)*CCaK2 
2 + ZRFZZFRSIRCORR2eLCGC CYA + SAD/CYB + SB))) 
ENCIF 
C FCTPC1 HAS CPHI TC)*2/G. 
FOIPC1 = 2.00C * ZUFZ2Z * FQ1PO1 
ARE YOU SURE IT IS NOT MULTIPIED BY 0.5? 


74) 
S 
ae om tt 


C 
C 
C IF ED @ 0 THEN THE TARGET IS THE SCURCE 
C 


IF CEC .LE. G.00) THER 
FO1PO1 = F * (1.00 - EXP C-xXMEAN®FQ1P01)) 
ELSE IF (ZISHELL «EQ. C) THEN 
TAL = 16273240CA2ZRFEZZFAZ2ZUFZZ 4 (1 CO. 84CCHCZRFZZFEe%2)/ (0%D) ) 
FQ1P01 = F x FQ1PO01 
IF (TAU .GT. 16CD-5) FO1PO1 = FQO1PC1%*(1.000 ~- EXPC@TAUDI/TAU 
IF CISTATT EC. 5) THEN 
TAUT @ ZUFZZ *& DREZIF 
FOIPC1 =FQTPC1 * EXPC(~TAL1) 


ENC IF 
ENC IF 
ENC IF 
C 
C LIMITS; 
G 
1C CONTINLE 
Cc IF CFQ1FO1 wLT. OCC) THEN 
C FQ1PC1 = 0.0C 
3 ELSE IF CFC1P01 .GT. 2.06) THEA 
(e FO1PC1 = 2.06 
C ENC IF 
C 
RETURN 
ENC 
CHECKEO 
SUBROUTINE RNWCC2CISTAT/ZHOZZ/ZHRZZ/,ZKAZZ4ZLRZXFZLRZY, 
1 ZUFZZ+Z2XCZZ/2YCII¢ZHFIZZ/2RLZ2,Z2KW2ZZ2,Z2RFZZ-ZUL2Z2, 
2 FQWOR1) 
IMPLICIT REAL®& (CA-F,s0-2Z) 
C 
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aaaAND 


aAaaAaAND 


CALCULATES THE RADIATIVE FLUX FROM THE WALLS 
CEILING IN A ROCM TC THE TOP SURFACE OF AN OBJECT. THE 
OBJECT MAY 8E BURNING. 


ANO 


JULY 1581. 


EQUATICNS BY He MITLER. ADAPTEC FRCM MARKS VERSION @Y Je 
INPLT FARAMETERS: 

TOTAL FeuthEsSTATE CF THE OBJECT CISTAT=#5 =--> CBJECT 

TS BURNING.) 

EnGZZ S2nuEIGHT SOF THE ‘CBYECT. 

ZHRZZ =~ HEIGHT OF THE ROOM. 

ZKAZZ -- AMBIENT TEMPERATURE OF THE ROCK. 

ZLRZX == LENGTH OF THE ROOM ALCNG THE X-AXIS. 

ZLEZY =~ LENGTH OF THE ROOM ALCNG THE Y~AXIS. 

ZUFZZ =~ ABSORPTIVITY CF THE FLAME. 

ZXGZzZ == X=COORCINATE CF THE OBJECT. 

ZYCZZ ~~ Y°COORCINATE GCF THE OBJECT. 
INPLT VARIABLES: 

ZHFLL se HEIGHT OF «THE sEL AMES eC VERGHE (CS JECT... 

ZHLZZ ~~ DEPTH CF TRE LAYER INTHE ROOM, 

ZKhZZ ~~ TEMPERATURE CF THE WALLS IN TRE RCOM. 

ZREZZ- == -RACIUS OF THE FIRE ON THE! OBJECT. 

ZULZZ -~ ABSORPTIVITY OF THE HCT LAYER. 


OUTFUT VARIABLE: 


FOKOR1 == FLUX FROM THE WALLS TC TRE SURFACE OF THE 


PARAMETER (PI = 3.141592700) 
PARAMETER CSIGMA = 5.670-8) 
OIMENSICN AC4),CPAC(4) 


9/24/8C. NEW GECMETRIC A PPRCXIMATICN TCO THE VIEW FACTOR. 


FINC AREA CF TRE 4 QUADRANTS. 


ACiwee  CLERLX = LXOZZ ae CZURZY = 9ZYC0Z2Z2) 
Bie BPRLGRL A * ZXOCZTZ) oe 2 YOgz 

AC2> = 2¥02Z * 2xX02Z2Z 

AC4) = 2X0ZZ * (ZLRZY - ZYOZZ) 


GAKM, 


OBJECT. 


DL IS THE TRKICKNESS OF THE HOT LAYER BETWEEN TRE OBJECT ANC THE 
CEILING. 


DISTANCE FRCM THE OBJECT TO THE BOTTCM CF TKE HCT LAYER: 


MAMESZERZZ = -ZRCZZ =eZRL BZ 
XH2 = XH * XH 
IF (XH .GT. 0.CC) THEN 


CL = ZHLZ2Z 
FINC VIEW FACTCR IN GENERAL. 

VA = C.9C 
CO 1C I1=144 
VF = VF + ACI) / € ACI) + 2800 * PI * XH2 ) 
VFo = VF°/. 4.C6C 

ECSE 
XH = C.O0C 
Rhee OF EC 
Lise? eZHRZ2 ~  2HOZ2 
VF = 1.0€ 

ENG. LF 


C NEXT FINC CPACITY TRRCUGH THE LAYER FOR EACH OF THE 4 QUADRANTS. 


C 
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AAMADAANAAAAMAAAANAAAAND 


XHCL2 = (XH + CL) **2 


DO 20 ITe144 
R2: 3.49 0CU RC ACTS Ve Pt 
IF (R22 NE. Co00) CPACCI) = 2.00% ZULZZ * (1.CO+XHDL2/R2) * 
1 CCLESERTCR24XH2)-SQRTCR24XHOL 2) ) 
20 COATINLE 


00 30 121,74 
30 ATTEN = ATTEN *# ACI) *EXPC@CPACCID) / CACTI4.250CCePI*XH24+1.0-°10) 
ATTEN = ATTEN / 4.CC 
TW4 = LKWZZe*4 
TAS = LKAZZ%&SG 
FQWOR1 = SIGMA & CATTEN*®TW4 + (1.0C“VF)*TAG) 


WHEN OBJECT IS BURNING FLUX IS REDLCED BY ABSORPTICN 
IN THE FLAME. 


IF CISTAT .EQ. 5) THEN 
TAU ® ZRE2Z *% .2URZZ 
KYP = SQRTICZREZZ*ZRFEZZ + ZHFZZ*ZKFZ2) 
IF (HYP NE. C.00) THEN - 
SL ne aoRl G2 hte 
ELSE 
SI = 1.C0 
ENO IF 
FQWORT = FQWCR1 * € EXPC-TAU) + SI ) / (1.00 + ST) 
ENC IF 


LIMITS: 


IF ¢ FOWCR1 LT. OCC) THEN 
FOWOR1 = C.00 

ELSE IF € FQOWORT .GT. 2.06) THEN 
FQOWORT = 2.06 

ENC IF 


RETURN 

ENC 

SUERCUTINE SPECFLCTMUZZ/ZYLOZ/Z2YLWZ-ZYLSZ/2YLMZ-ZYLOZ, 
1 TMOZFI-TMWZF1/TMSZF1-TMMZF1,-TMOZF1) 

IMPLICIT REAL*E CA-r-0-2) 


THIS SUBROLTINE CALCULATES THE MASS FLOW OF EACH OF THE GASEOUS 
SPECIOUS TRRCUCGHK A VENT. 


INPLT PARAMETERS: 


INPLT VARIABLES: 
TMLZZ -- TRE CPCSITIVE) MASS FLOW THROUGH A VENT. 
ZYLOZ == THE MASS CCNCENTRATICN OF CARECN CIOXICE IN THE HCT 
LAYER CF TRE RCOM FROM WHICH THE FLOW CRIGINATES. 
ZYLWZ ~= TRE MASS CCNCEATRATION CF WATER IN THE HOT LAYER CF 
TRE ROCM FROM WHICH TRE FLCW CRIGINATES. 


ZYLSZ == TRE MASS CCNCENTRATION OF SCOT IN THE SAME ROCM AS 
ABCVE. 

ZYLMZ =~ TRE MASS CCNCENTRATION CF CARECN MCNOXIDE IN TRE 
SAME RCOM AS ABCVE. 

ZYLOZ ~~ TRE MASS CCNCENTRATION OF CXYGEN IN THE SAME RCOM AS 
ABCVE. 


OUTPUT VARIABLES: 


TMCZF1 -- THE MASS FLOW THROUGH THE VENT OF CARBON-CIOXIDE. 
TMhZF1 == THE MASS FLOW THRCUGR THE VENT OF WATER VAPOR. 
TMSZF1 “= THE MASS FLOW THROUGH THE VENT OF SOCT. 

TMMZF1 =~ THE MASS FLOW THROUGH THE VENT OF CARBON MONCXIDE. 
TMCZF1 -- THE MASS FLOW THRCUGH THE VEAT OF OXYGEN. 


AMQAAANAAAND 


TMCZF1 = TMUZZ*ZYLOZ 
TMWZF1 = TMUZZ*ZYLWZ 
TMSZF1 = TMUZZ*ZYLS2Z 
TMMZF1 = TMUZZ*ZYLMZ 
TMCZF1 = TMUZZ*ZYLCZ 
RETURN 

ENC 

CHECKED 


SUBROUTINE SPREAD CA,T/-ZRFZM,/ZRFZO/PHI-2RFZZ/TRFZZ1) 
IMPLICIT REAL*®8 (CA-hs,0-2) 


C 
C SUBROUTINE TC CALCULATE THE SPREAD RATE OF THE FIRE ON AN 
C CBVJECT. 
C 
C EQUATICNS BY He MITLER. ADAPTEC FROM GFIRC3 CCDE BY Je GAKM, 
C JUNE 1581. ) 
C 
C INPUT FARAMETERS: 
C A -~ FIRE SFREAC PARAMETER. 
C T ~~ FLAME TEMPERATLRE. 
C ZRFZM ~~ MAXIMUM BURNING RACIUS CF THE CBJECT. 
C ZRFZC -- INITIAL BURNING RACTIUS OF THE CBJECT. 
C 
C INPLT VARIABLES: 
e PHI =— FLUX SINCIOENT ON THE” SURFACE OF" THE OSYECT. 
C Rei? == RACLUS OF THE FIRE ON THE™CBJECT. 
C 
C OUTPLT VARIABLE: 
C TRELZ? == SPREAD RATE OF THE FIRE ON THE OBJECT. 
i 

PARAMETER (SIGMA = 5.67€-8) 
s 

C = PHI / (SIGMA *® Tx*4) 

IF (ZRFZZ .LEw] Co9SCO*ZRFZM) THEN 

TRFZZ21 = A * C we (1.004C/2.004+C*C/3.0C) 
a ‘ 
TRFZZ2Z1 = CZRFZM“ZRFZZ) / 10.C6 

BGC ¢ 
C 
2g Ee BOR 
c 
C IF (C2RFZZ «GE. ZRFZM) THEN 
C TRFZZ1 = MINCTRF221,0.00) 
C else 
C TF (Z2RFZZ «LE. ZRFZO) FREZZ1 = MAXCTRF2Z21,-0.CC) 
C EN Gel Le 
C 
RETURN 

ENC 
ChECKED 

SUBRCUTINE SUTCACCZMSLA-Z2MLZZ/ZYLS21) 

IMFLICIT REAL*& CA-Fs-0-2) 
. 
C SUBROUTINE TO CALCULATE THE MASS CCNCENTRATION CF SCOT 
CoN THE nO, LAVER. 
c 
C ECS. BY He EMMCNS. ACAPTED FROM LAYRO4 COCE BY Je GAHM, 


LL? 


JULY 1981. 

INPUT FARAMETERS: 

INPUT VARIABLES: 
ZMSL ~~ MASS OF SOCT IN THE HOT LAYER. 
ZMLZZ =~ TCTAL MASS OF THE HOT LAYER. 


CUTPUT VARIABLE: 
ZYLSZ1 => MASS CONCENTRATICN OF SOCT IN THE HOT LAYER. 


OVO OOOO OG) Ose 


PARAMETER CYS = 0.00) 


oO 


IF (ZMSLeLEeZMLZZ eANDs ZMLZZeNE000) THEN 
ZYLSZ1 = ZMSL / ZML22 

cLioe 
2YLSZ1 480% 

ENC TIF 


LIMITS: 
TA LCZYVG Sitewal Ge BViouet HEN 
2YL32 7 geeyS 
ELSE IF € 2YLS21 «GT. 1.00 ) THEN 
ZYLSZ1 = 1.0C€ 
ENC 2LF 


AADNA OOD 


RETURN 
ENC 
CHECKED 
SUBROUTINE SUTPROCFS/-TMCZZ2-TMOS1) 
IMPLICIT REAL*& CA=hs,0-2Z) 


SUBROUTINE TO CALCULATE THE RATE AT WHICH THE FIRE CF AN OBJECT 
PROCUCES SCCT. 


ADAPTEC FRCM LAYRO4 CCCE BY Je GAHM, AUGUST 1981. 
INPLT FARAMETERS: 
FS == MASS FRACTICN OF SOOT EVCLVEC IN THE BURNING 
CF THE O8JECT. 


INPLT VARIABLES: 
TMCZZ =~ NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 


OUTPUT VARIABLE: 
TMCS1 -- MASS RATE CF EVOLUTION OF CC2 FROM THE OBJECT. 


AMAADANMAANONAAAAAAN 


TMCS1 = -FS * TMOZZ 


a 


RETURN 

ENC 

SU@ROUTINE TCOZMCTMCDS+TMOSMsTMPSMsTMDZF,/TMOL1) 
IMFLICIT REAL*8 CAH-0~2) 


SUBROUTINE TO CALCULATE THE RATE OF CHANGE CF MASS CF CARBCK- 
DIOXIOE IN THE HOT LAYER. 


EQLATICNS EY He. EMMONS AND He MITLER. ACAPTEC FROM LAYRC4 
COCE BY J. GAHPM, 


INPLT PARAMETERS: 


MDAANMNAAANADAAANANA 


INPLT VARIABLES: 
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AADMDAADAAGAAADAANAAANANAANAANAAN 


ANAAMDANAANAAN 


VOver ae orc co 


TMCDOS == RATE CKG/SEC) AT WHICH THE CBJECTS IN THE ROOM 
PRCOUCE CARBON-DICXIDE. 

TMCSM == NEGATIVE CF THE SUM OF THE MASS PYROLCSIS RATES 
OF ALL OBJECTS IN THE ROOM. 

TMPSM == RATE AT WHICH THE PLUMES OVER ALL THE CBJECTS IN 
TRE RCCM ACD MASS TO THE HOT LAYER. 

TMCZF -- RATE AT WRICH CARSCN CICXIOE FLOWS OUT OF THE ROOM 
THROUGH ALL THE VENTS IN THE RCOM. 


OUTFUT VARIABLE: 
TMCL1 -- RATE CF INCREASE CF MASS CF CCZ IN THE HOT LAYER. 


TMCL1: = S.C-4 * CTMPSM + TMCSM) + TMODS - TMDZF 

RETURN 

ENC 

SUBROUTINE TENPLMCZKAZZ,/-ZKCPY,-TEOZZ-TEFZR/~TMOZZ4TMPZZ-TEPZZ1) 
IMPLICIT REAL*E CA-ks0-2) 


SUBROUTINE TO CALCLLATE THE RATE AT WHICH THE PLUME OVER AK OBJECT 
AOCS ENERGY TO THE KOT LAYER. 


EQUATICNS @€Y He. EMMONS. ADAPTED FRCM PLUM CODE BY J. GAHM. 


INPUT PARAMETERS: 


ZKAZZ -- AMBIENT TEMPERATURE IN THE ROCM CCNTAINING THE PLUME. 
ZKCPY =~ PYROLCSIS TEMPERATURE CF THE CBJECT. 
INPLT VARIABLES: 
TECZZ =~ RATE CF CHEMICAL ENERGY PRCCUCTION IN THE COMBLSTION 
OF S“THE OBJECT. 
TEPER ete AT LOSS RATE FROM TRE FLAKE CF’ THE COVECT. 
TMCZZ ~~ NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 
TMPZZ -- RATE AT WHICH THE PLUFPE CVER THE CBJECT ACCS MASS 


TC THE HCT LAYER. 
CUTPUT VARIABLE: 
TEPZZ1 -= RATE AT WHICH THE PLUME ACOS ENERGY TC THE HCT LAYER. 


PARAMETER ( CP = 10C€4.C0C ) 


(2/3/75) IN THE FOLLOWING EQN- WE REPLACEC FQN (18) CTECHNICAL 
REPCRT 34) wITh THE MCRE PRECISE ECN (18°) CFCCTNOTE ON P. 12). 
BESCeEIHE (SPECLPICOHEAT IN THE PCRSTM ITEM SKOUUTU BE STHAT OF (THE 
PYRCLYZEC GAS RATHER THAN THAT OF AIR? HCWEVER, WE MUST USE CP 
CTHAT CF AIR) BECAUSE WE HAVE USED CP IN TRE EXPRESSION 
TCL) = ECLISCCLIMCL)D 
APPEARING IN SUBROUTINE LAYRs RATHER THAN THE CCRRECT AVERAGE 
CCL). WE ASSUME TCP) = 750. KELVIA FOR THE PRESENT. 
Teraaypeee eT EOZZ + € TMPZZ oO wC TZ} x CP A ZKAZ2 
1 PSLEPILR) “PMOL. aire CROP Y 


LIMGT S:s 
TESCOTEP TZ cts O-l0") hen 
TEPZZ1 = C.0C 
SUSE DLE MSTEPZLZ2 1 OGT. 12209 SHEN 
NEPZ24 =) 2.09 
ENG? IF 


RETURN 

ENC 

SUBRCUTINE TH2CMCTMCWS/TMWZFe/TMWLh1) 
IMPLICIT REAL*E CA-Ks0-Z) 


pLide 
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AADDANANAANANDNHAAANAN 


SUBRCUTINE TO CALCLLATE THE RATE OF INCREASE OF MASS OF 
WATER VAPOR IN THE HOT LAYER. 


EGLATICNS BY He. EMMONS AND Ke MITLER. ADAPTED FROM LAYROG 
COCE BY Je GAHM, JULY 1581. 


INPUT PARAMETERS: 


INPLT VARIABLES: 
TMCWS == TCTAL RATE AT WHICH OBJECTS IN THE ROCM PRODUCE 
He0. 
TMhZF -- RATE CF MASS OUTFLOW CF WATER VAPCR TRROUGH ALL TRE 
VENTS IN TRE RCOM. 


OUTPUT VARIABLES 
TMWL1 -* RATE CF INCREASE CF MASS CF WATER IN THE HOT LAYER. 


TMWL1 = TMCWS = TMWZF 

RETURN 

ENC 

SUBROUTINE TMNXMCTMCMS,/TMMZF/TMML1)D 
IMPLICIT REAL*& CA-H-0-2) 


SUBROUTINE TO CALCLLATE THE RATE OF INCREASE OF MASS OF CARBON- 
MONOXICE IN THE HOT LAYER. 


EQGUATICNS EY He EMMONS ANC Fe MITLER. ACAPTEC FROM LAYRC4 
COCE BY Je CGAHM. 


INPLT FARAMETERSS 


INPUT VARIABLES: 
TMCMS *= TOTAL RATE CKG/SEC) AT WHICH CARBCN=MONOXICE IS 
PRCDUCED BY THE OBJECTS IN THE ROCM. 
TMNZF == MASS RATE CF OLTFLOW CF CARS8OK= MCNOXICE TRROUGH ALL 
TRE VENTS IN TRE ROOM. 


OUTPLT VARIABLE: 
TMML1 -- RATE CF CRANGE OF MASS CF CARECN=MCNOXIDE IN THE 
HCT LAYER. 


TMYL1 = TMCMS = TMMZF 

RETURN 

ENC 

SUERCUTINE TMPLCZKAZZ/-CPAZELZZ-Z2MLZ2, 
1 ZKL2Z21) 

IMPLICIT REAL*®8 CAshs0-2) 


SUBROUTINE TO CALCULATE THE TEMPERATURE OCF THE HOT LAYER IN A ROOM 


EQLATICNS 8Y He EMMONS ANO He MITLER. ACAPTED FROM LAYRC4 CCDE BY 
Je GAHM. 


INPUT FARAMETERS: 
ZKAZZ -> AMBIENT TEMPERATURE IAN THE RCCHM. 
CP w= SPECIFIC MEAT OF ALR. 


INPUT VARIABLES: 
ZELZZ ~~ ENERGY OF THE LAYER. 
ZMLZi ~~ MASS CF-THE CAVERS 


OUTPUT VARIABLE: 
ZKLZZ1 =~ TEMPERATURE OF The LAYER. 
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AAADANAN 


IF CZMLZZ EQ. C.00) THEN 
ZKL = ZKAZ2Z 

4 BY 
LPL eee chee ee k CP LW CMLL? 

A hares 

ZKLZZ1 = ZKL 

LIMITS: 

Tree ehh ecleel lea thAZZ: ) THEN 
ZKLZZ1 = Z2ZKAZ2 

ELSE. LF. ¢€ Z2KLZ21 2.61. 2500.00 ) THEN 
ZKLZZ1 = 250C.0C 

ENC IF 

RETURN 

ENC 


SUERCUTINE TMPC2COTZEB/KOsZHOZZ,-ZHRZZ, 
1 ZKAZZ¢2Z0AZZ + FRLORSAFCPCRA-FOWOR, 
2 ZRLZZ/ZKLZZ2/ZKCZZ-ZK07Z21) 
IMPLICIT REAL*®& CA-H,0-2Z) 


CALCULATES THE TEMPERATLRE FROFILE WITHIN C8JECT KC USING A DISCRETE 
GRIC. THE C8JECT IS HEATED CN THE LPPER SURFACE BY RADIATION AND TRE 
HEAT DIFFUSES THROUGH IT BY CONCUCTION. NCTE THAT THIS SUBROUITNE 
DIFFERS FRCM TRE OTRER PHYSICAL SUBROUITNES IN THAT THE TIME AAD 
SPACE INTEGRATICNS NECESSARY TC SOLVE THE FEAT EQUATION ARE PERFORMED 
WITHIN THE SUBRCUTINE ITSELF. TO FACILITATE TRIS CALCULATICN THE 
SU@RCUITNE MUST 8E INITIALIZED AT THE BEGINNING CF EACK TIME STEP 

VIA A CALL TO THE ENTRY TMPC2I. 


EQCLATICNS E&Y He EMMCNS 

CCCEO @Y Cw LAPP, NeBILLIKCFF, Le TRFETHEN 

AUGLST 1977 

RECCDEC BY ™. SPIVAKOVSKY, AUGLST 1980. ECS. FY He MITLER. 
ACAFTEC TO NEW PHYSICAL SUBROUTINE FCRMAT 2Y Je GAHM. 


INPUT FARAMETERS: 


Cdr ees Ce *ACELLRE TIKMEOCS TERS 

EGI>"“LEMMISIVITY/ASBSCRPIIVITY CE FRE.SULRFACE-GCF« THE. OBJECT. 

RGee= CE IFCTINUMBER OF THEVOBJECT. 

ZHOLZ == nel ons,. OF. THE C38VECT 

ZHRZZ -- HEIGHT CF THE RCCM CONTAINING THE CBJECT. 

ZKAZZ -- AMBIENT TEMPERATURE IN THE RCCM CCNTAINING THE OBJECT. 

ZOAZZ -- HEAT TRANSFER COEFFICIENT FCR CSJECTS. 

INPLT VARIABLES: 

FOLCR -- RACIATIVE FLUX FRCM TRE HCT LAYER IN THE RCOM TO THE 
SURFACE CF THE OBJECT. 

FOFCR =~ RACIATIVE FLUX FROMCALL TRE PLUMES “IN THE ROOF TC THE 
SURFACE OF THE OBJECT. 

FQkCK -- RACIATIVE FLUX FRCM THE WALLS IN THE RCOM TO THE SURFACE 
OF “THE CRJEC I. 

ZAC Zee =, DEPTH CR URE Ae Ree re RCO We 

ZKLZZ -- TEMPERATURE CF THE HOT LAYER. 

ZKCZZ ~~ SURFACE TEMPERATURE OF THE .QBJECT. 


OUTPUT VARIABLE: 
ZKCZZ1\ ~~ SURFACE TEMPERATURE CF THE ObJECT. 


THE FOLLCWING INCLLCE FILE IS NEEDED ONLY TC GET THE MAXIMUM 
NUMBER CF CBJECTS FCR TRE RUN AS A DIMENSICN FCR ZKC. 
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S$INCLLOE 9/DIMN.CMN 
PARAMETER (C1 = MC#MR) 
PARAMETER ( MXLYRS = 20 ) 
PARAMETER ( SIGMA = 5.6708 ) 
PARAMETER (€ ZOLZZ = 5.0C- ZCLZM = 50.0C€ ) 
CIMENSICN FIRSTCMO1) eNOBCMO1),A0 (M01) BCC MC1) »-ZKOCMXLYRS/MC1) 
SAVE FIRSTs¢NOBs AC, BCeZKC 
LOGICAL FIRST 
DATA FIRST /MO1*.TRLEW/ 


am 


FINC TCTAL FLUX IMPINGING ON THE SURFACE OF THE OBJECT 
FQCA = FOPCRtFCLORtFQWOR 


OETERMINE IF TRE OBVECT IS IN THE KOT LAYER 


aang 


AW @ ZRRZZ <= 2RUZZ = 2RCrZ 
IF (XH «GT. O.CCO) THEN 
RHG = 20A22 
TG = ZKA2Z2Z 
ELSE 
RHG = MINCZOLZM, ZOLZZ + CZOLZM"Z0L2Z) 
1 *CZKLZ2-2KA22)/1C0 00) 
TG = ZKL22Z 
ENC ysE 
FQC = EBXCFQOASSIGMA * ZKOZZ**4 ) = 
1 RHGe(2ZKC2Z2-TG) 


TEMP = 41.0€C = ACCKC).*. CT 
ZKOZZ7 = ZKCC1/KO)*TEMP + 
ACCKOC) OTe CZKCC22K0) +80 CKO) FCO) 


LIMITS: 
IF € 2KO0221 .GT. 20C0.0C ) THEN 
ZKCZZ21 = 2000.0C 
ELSE: EFisle 2KO7Z0. ol at-sg ZKAZ2o Dp REN 
ZKOZ21 = ZKAZ2 
ENC IF 


ANMANDAAYAN 


RETURN 


an 


ENTRY TMPO2ICKCsZGCZZs¢OTMAX/ZNCZZ/25CZ2Z/ZKAZZ-01V/Z2K022) 


CALL TRIS ENTRY ONCE FOR EACH CBJECT TC INITIALIZE AT THE 
BEGINNING CF EACH TIME~STEP. 


INPUT PARAMETERS: 
KO =~ C@JECT NUMBER CF THE CBVJECT. 
ZGCZZ ** TRERMAL DIFFUSITY CF THE OBJECT. 
DOTWAX == LARGEST ALLOWABLE SIZE FOR THE TIME STEP. 
ZNCZZ ~~ THICKNESS CF THE OBJECT. 
LJCZZ ~~ THERMAL CONOUCTIVITY CF THE OBJECT. 
ZKAZZ =~ AMBIENT TEMPERATURE IN THE ROCM. 
OT w= SLLE CR THE CVIME SPER JUST COMPLE TEC. 
ZKCZZ =~ SURFACE TEMPERATURE OF THE OBJECT. 


IF THIS IS THE FIRST CALL CF THE RUN THEN CETERMINE HOW MANY LAYERS 
WILL BE USEC IN THE DISCRETE GRIO FOR EACH CBJECT. 
IF (FIKSTCKO)) THEN 
CXM = SQRTC2.CO*Z2ZGOZZ*OTMAX) 
M = INTCZNOZZ/DXM) + 1 
NCBCKC) = MINCM,MXLYRS) 
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AAAAAADAAARAIAANAAANANMN 


AAA ADAAAAAAAAAAAAAAADAAGAANAAAAAAANAAANH 


KCBCKC) = MAXC2/NCBCKC)) 

CX=ZNCZZ/(NOBCKO)-1) 

AOCKC) = 2.00*2GCZ2Z/ (OX*CX) 

PCCKC) = OX/25022 

CO 3C I = 1/NCBCKC) 
ZKCCIZKC) = ZKAZZ 

30 CONTINUE 
FIRSTCKO) = .FALSE. 


ELSE 
TEMP = 1.00 = ACCKO)*OT 
TMP2 = ZKCZZ 


Cc 4C 1=2,NOB(KC)-1 
TMF1 = TMP2 
TMPF2 = ZKOCI-KO)*TEMP + AOCKO)*COT/2.00)* 
1 (2ZKO0CI“1-K0)4ZKCCI1+1-K0)) 
ZKCCI-1,-K0) = TMP4 
40 CONTINUE 
TMP1 = TMP2 
TMP2 = ZKCCNCE CKO) -KO)*TEMP + 
1 ZKOCNC3CKOI—1-KC) *AC CKO) *OT 
ZKCCNCBCKO)-1-K0) = TMP4 
ZKOCNCBCKC)-KC) = TMP2 
ENC IF 
RETURN 
ENC 
SUBROUTINE TMPWICOT/JSICE-KwWeZKAZZ/,FOLaCeFCLWRAFQPHR, 
1 ZHLZZ/ZKWZ2Z/2ULZ2/ZK W221) 
IMPLICIT REAL*& CA-H,O-2) 


CALCULATES THE TEMPERATLRE PROFILE WITHIN hALL KW USING A CISCRETE 
GRIC. THE hALL IS KEATED OR CCCLEC ON EACH SICE BY CONVECTION 

ANDO RACTIATICN AND TRE HEAT CIFFUSES THROUGH IT BY CCNDUCTICN. 

NCTE TRAT TKIS SUBRCUTINE CIFFERS FROM THE CTHER PHYSICAL SLB- 
ROUTINES IN THAT TRE INTEGRATICNS NECESSARY TO SCLVE THE CONE 
DIMENSIONAL HEAT EQUATICN ARE PERFCRMEC WITKIN THE PHYSICAL SUS=- 
RCUTINE ITSELF. TC FACILITATE THIS INTEGRATION, THE SUBROUTINE 
MUST BE INITIALIZEC AT THE BEGINNING OF EACH TIME STEP VIA A CALL 
TO THE ENTRY TMPWI1I FCR EAChr WALL. 


EQCUATICNS EY He. EMMCNS 

CCCED BY Cw. LAPP, Ne BILLIKCPFs, Le TREFETHENs AUGUST 1977 
B. LONCCN, JULY 1978 

MeSFIVAKCVSKY, AUGUST 1580 

ADAFTEC TC THE NEW PHYSICAL SUSRCUTINE FCRMAT BY Ja GAHM, 
JULY 1581. 


INPLT PARAMETERS: 


ieee Stic eve PUNE CURRENT = 1 eee Tet. 

JSISE -- INCEX TO OIFFERENTIATE BETREEN THE OUTSIDE ANC INSIDE OF 
THE WALL. - 

KW ~~ hALL NUMBER. 


ZKAZZ -- AMBIENT TEMPERATURE IN THE ROCM BCROERED BY TRE JSIDE SID 
OF THE WALL KW. 


INPLT VARIABLES: 
FOLWO -- CCNVECTIVE HEAT FLUX FROM THE KOT LAYER IN CONTACT WITH T 
JSTOE SIDE OF THE WALL TO THE WALL. 


FQLWR -- RACIATIVE FLUX FRCM TKE HCT LAYER IN CCNTACT WITH THE JSI 
SICE CF TRE WALL TC TRE WALL. 

FQPWR -- TCTAL RACIATIVE FLUX FROM ALL THE PLUMES IN THE RCOM 
BCROERED @Y THE JSIDE SIDE CF THE WALL TO THE WALL. 

ZHLZZ -- DEPTH CF FRE HCT LAYER IN THE- ROOM. 

ZKhZZ -~ TEMPERATURE OF THE JSIDE SIDE CF THE WALL. 
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C ZULZZ ** INFRARED ABSORPTIVITY OF THE HOT LAYER IN THE ROCM. 
C 

C OUTPUT VARIABLES 

C ZKhKZZ1 -- TEMPERATURE OF THE JSIODE SIOE OF THE WALL. 

C 


C THE FOLLCWING INCLLCE STATEMENT IS NEECEC CALY TO FROVICE TRE 
C MAXIMUM NUMBER CF WALLS IN THE RUN AS A CIMENSION FCR ZKW. 
$INCLLOE 9sOIMN.CMN 

PARAMETER ( MXLYRS = 20 ) 

PARAMETER ( SIGMA = 5.670-8 ) 

DIMENSICN NCMW) AWCMW) -BWOMW) FIRST CMW) pZKWCMXLYRS SMW) 

SAVE NeAwsBwWe FIRST AZKW 

LCGICAL FIRST 

CATA FIRST /MWe.TRUEL/ 


C TOTAL FLUX IMPINGING CN THE WALL 
FQORSFOLWOtFOCLWRtFCPRR 


C 
C NOW WE TAKE INTO ACCOUNT ENERGY 
C LOSS BY RACIATICN: 
FQh = FQW = SIGMASCZKWZZ**4 =— EXPCHZHLZZ*2ULZZ)% 
1 ZKAZZ**4) 


C AN ADDITIONAL FACTCR CF .5 WAS REMCVED FROW THE LAST TERM CF 
C THE EXFRESSION FOR FQW CN 9/25/80 BY Je GARM. 
TEMP = 1.0€ - AwWCKW) * CT 
IF CJSICE .£Q. 1) THEN 
NSLC = 1 
WXTSCC SENSCCA F.3 
SCSE 
NSLC = NCKW) 
NXTSUCOSONSKLC +71 


ENC IF 
ZKWZZT=ZKWCNSLO KW) ATEMPH 
1 AW CKWI*DTACZKWONXTSLO-KW)4BWC KW) RF OW) 

C 
C LIMITSS 
(e LPOCPZENZ 2 ie Le 2KhALL THEN 
C ZKwWZZ1 = ZKAZZ 
C ELSE IF (€ ZKW2Z2Z1 .GT. 2500.CO ) THEN 
C ZKwZZ1 = 250C.00 
Cc ENC IF 
C 

RETURN 
C 
C 
C 

ENTRY TMPWIICKWeZGhZZ-0TMAXsZNWZZe,IWTTYsZKAIN,ZKAOUT/ZJSW2Z2Z, 

1 ZKWIN/ZKWOUT,/CT) 

C 
C THIS EATRY SHOULD BE CALLED ONCE FCR EACH WALL AT TRE BEGINNING OF 
C EACH TIME STEP TC INITIALIZE THE DISCRETE CRID. 
C 
C INPLT FARAMETERS: 
C KW -- bALL NUMBER CF THE WALL. 
C ZGwZ2Z ~~ TRERMAL DIFFUSIVITY OF THE WALL. 
C OTMAX == SIZE CF THE LARGEST ALLOWABLE TIME STEP. 
C ZNWZZ => TRICKNESS CF THE WALL 
C IWTTY -- CrRANNEL NUMBER FOR WRITES TO TRE TERMINAL SCREEN. 
C ZKAIN ~~ AMBIENT TEMPERATURE ON THE INNER FACE CF THE WALL 
C CJSIDE = 1). 
s ZKACUT ~~ AMBIENT TEMPERATURE CN THE OLTER FACE OF THE WALL 
G CJSIOE = 2). 
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ZJWZ2ZZ =~ TRERMAL CONOUCTIVITY CF THE WALL. 

ZKhIN == TEMPERATURE OF THE INSICE SURFACE CF THE WALL. 
ZKWCUT -- TEMPERATURE OF THE OUTSIOE SURFACE CF THE WALL. 
OTe = SIZE CF THE TIME STEP JUST COMPLE LEO. 


AAO NA 


C AT THE BEGINNING OF THE RUN, DETERMINE HOW MANY SLICES TO USE 
C IN THE DISCRETE GRIC ANC SET UP PARAMETERS FOR EACH WALL. 
IF CFIRSTCKW)) THEN 
CXM=SCRTC2.0C*ZGWZ2Z*OTMAX) 
MSINTCZNWZZ/0OXM) +1 
NCKW)=MINCM/MXLYRS) 
IF (NCKW) LE. 1) NOCKW) =2 
WRITE CIWTTYs-c2C) KWeNCKW) 
20 FORMAT (€° xe TMPWO1: NO. OF GRIC POINTS CWALL=°,J2-°) =’,I3) 
CX=ZNWZZ/ (NC KW) @1) 
AWCKW)=2.COXZGWZZ/ COX*OX) 
BWCKWI=OX/ZIWZ2Z 
CO 3C IT=1-NCKh) 
ZKaCIeKhW) = ZKAIN + DBLECI“1) *CZKACUT“ZKAIN)/DBLECN (KW) 1) 
30 COATINUE 
FIRSTC(KW) = FALSE. 
ECs 
1-00 - AWCKW)*CT 


CO 4C I = 2e/NC(KW)-1 
TMF1 = TMP2 
TMPZ = ZKWCIZKW)*TEMP + AWCKW)*(COT/2.0C)* 

1 CZKWCIS1-KW)t+ZKWCI41 KW) dD 
ZKwCI-1/KW) = THP1 
4C CONTINUE 
ZKWCNCKWI-1 KW) = TMP? 
ZKWCNCKW)-KW) = ZKWOUT 


ENC IF 

RETURN 

ENC 

SUBROUTINE TMSLCVMAZZ/ZERZZ,ZLRZXsZLRZY + TMPSMs TMUSMs/ZMLZZe 
1 TML221) 


IMFLICIT REAL*&8 CA -F,0°2) 
SUBRCUITNE TC CALCULATE THE RATE OF CHANGE CF MASS CF THE LAYER. 


EQUATICNS 2Y He. EMMCNS AND He MITLER. 
ADAPTEC FRCM LAYRO4 CODE BY J. GAHM, 


INPUT FARAMETERS: 


VMAZZ ~~ DENSITY CF AMBIENT AIK IN THE ROOF. 

ZHRZZ ~~ HEIGHT OF THE ROOM, 

ZLRZX ~~ LENGTH OF THE ROOM ALCNG THE X-AXIS. 

ZLEZY ~~ LENGTH CF THE ROCM ALCNG THE Y-AXIS. 

INPUT VARIABLES: 

TMPSM == TCTAL MASS OUTFLOW FRCM THE PLLMES IN THE ROOM 
INTC THE HCT LAYER. 

TMUSM == TCTAL MASS OUTFLOW FRCM THE HCT LAYER THROUGH 
ALL THE VEATS IN THE KOOM. 

EMLZ2. <~ MASS CF THE HOT UARIERCIIN CHE ROOM, 


CUTPUT VARIASLE: 
TMLZZ1 -~ RATE CF CKANGE OF MASS OF THE LAYER. 


AAAADANAAADAANDQNDAAAANAANAANAAN 


TMLZZ1 = TMPSM - TRLUSM 


ang 


LIMITS: 
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AAAOAAHAAAAAGANAHAANNAMAOHAAAAAAN 


— 


Oan 


TMLZZ1 = -100C.00 
ELSE IF (TMLZZ1 .GT. 10C0.CC) THEN 
T¥LZZ21 = 100C.00 
EN Gee 
IF CZMLZZ LE. CeoCO) THEN 
TMLZ2Z21 = MAXCTMLZ21-0.00) 
ELSE IF CZMLZZ .GEe VMAZZ*¥ZLRZX*ZLRZY*ZHRZZ) THEN 
IMLZ21 = MINCTMLZ21-0.00) 
ENC IF 


RETURN 

ENC 

SUBROUTINE TMSPLMCALPHAsVMAZZ/ZKAZZ/,TECZZ/-TMOZZ,ZHPZ2Z, 
1 ZRFZZ-TMPZ2Z1) 

IMPLICIT REAL*& (CA~h-0-2Z) 


SUBROUTINE TO CALCULATE THE RATE AT WHICH THE PLUME OVER AN 
OBJECT ACCS MASS TC THE HOT LAYER. 


EQUATICNS EY He EMMONS. ADAPTED FROM PLUM CODE BY Je GAHM. 


INPUT PARAMETERS? 


ALFRA -- PLUME ENTRAINMENT COEFFICIENT. 

VMAZZ == DENSITY CF AMBIENT AIR IN THE ROOM CONTAINING THE 
PLUME. 

ZKAZZ ~~ AMBIENT TEMPERATURE IN THE RCCM CONTAINING THE PLUME. 


INPUT VARIABLES: 
TECZZ == NEGATIVE CF RATE CF ENERGY RELEASE IN THE COMBUSTION 
OF THE OBJECT. 
TMCZZ =~ NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 
ZHPZZ =~ HEIGHT OF THE PLUME OF THE CBJECT. 
ZRFZZ == RADIUS OF THE FIRE ON THE CBJECT. 


OUTPUT VARIABLE: 
TMFZZ1 == RATE AT WHICH THE PLUME OVER THE OBJECT ADOS MASS TO 
THE HCT LAYER. 


PARAMETER (€ PI = 3.141592700- G = 9.80C~- CF = 1004.00 ) 


IF € ZHPZZ LT. Q.0C ) THEN 

TMPZ2ZZ1 = =TMOZ2Z 
ELSE 

X = Z2RFZ2Z / € 12.200 * ALPHA ) 
# LHP Ze ree 

BP = 1.200 * ALPHA * HPX 

TMP Be Co re Se OOl eG OPT EOL 2 7 

1 ( 48.00 * ALPHA®ALPHKA * PI * CP * ZKAZZ * VMAZZ ) 


SAFETY AGAINST FLUCTUATIONS: 
IF € TMP LE. 0.0C ) THEN 
TMPZ21 = =TMOZZ 
ELSt 
U = € TMP / HPX )**C0.323333300 
UF = CTMP / X )**0.333333300 
TMPZZ1 = VMAZZ & PI & € BPAXBP * U = ZRFZZ*ZRFZZ * LF ) 
1 = TMOZZ 
END IF 
ENC IF 


LIMITS: 
LF C TMPZZ4j a lis O80). THEN 
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C ~TMP221 = 0.00 
C ECSEGIFRL THPZZ7 .GTt. 1000.00 ) THEN 
C TMP221 = 100C.0C 
C ENC IF 
C 
RETURN 
ENC 
CHECKED 


AAANAAAAAIAIAANAADIAAARAAAAINAANANH 


ANDAANAAIANAAANAANAAAAAN oO 


an 


SUERCUTINE TOXYMCBACXYSs¢TMOSMsTMPSMsTMOZF-TMCL1) 
IMPLICIT REAL*& CA-k,-0°2Z) 


SUBRCUTINE TO CALCULATE THE RATE OF CHANGE CF MASS CF CXYGEN 
IN THE HOT LAYER. 


EQUATICNS &8Y He EMMCNS AND Ke. MITLER.j ACAPTED FROM LAYRC4 
CCCE BY Je GAHM, AUGUST 1981. 


INPLT PARAMETERS: 


INPLT VARIABLES: 


BOXYS -- RATE AT WHICH ALL THE CBJECTS IN THE RCOM BURN OXYGEN. 
TMCSM -- NEGATIVE CF THE SUM CF THE MASS PYROLYSIS KATES 
OF ALL CBSJECTS IN THE ROOM, 
TMFSM -- RATE AT. WHICH THE PLUPES CVER ALL THE OBSJECTS IN 
TRE RCCM ACD MASS TCO THE HCT LAYER. 
TMCZF ~~ MASS RATE CF OLTFLOW CF OXYGEN FRCM TRE HCT LAYER 


TRROUGH ALL THE VENTS IN THE KCOM. 


CUTPUT VARIABLE: 
TMCL1 ~~ RATE CF INCREASE CF MASS CF OXYGEN IN THE HOT LAYER. 


PARAMETER (€ YO2 = .2318CO ) 

YO2 ~~ MASS CONCENTRATICN CF OXYGEN IN THE AMBIENT AIR. 
TMCL1 = YO2 * € TMPSM + TMCSM ) = 8OXYS = TMOZF 
RETURN 
ENC 
SUEROUTINE TSUTMCTMCSS/TMSZF/TMSL1) 

IMPLICIT REAL*®& (CA-ts0-2Z) 


SUBROUTINE TC CALCULATE THE RATE OF CHANGE CF MASS CF SCOT 
IN THE HCT LAYER. 


EQCLATICNS BY He. EMMCNS AND Ke MITLER. ACAFTED FROM LAYROG 


INPLT PARAMETERS: 


INPUT WARTIABLES: 


TMCSS -- TCTAL KATE AT WHICH ALL OBJECTS IN THE ROCM 
PRCCUCE SCCT. 
TMSZF -- MASS RATE CF CLTFLCW CF SCOT FROM THE HOT LAYER 


TRHRCUGr ALL THE VENTS IN THE FCOM. 


CUTPFUT VARIABLE: 


T MSO ins RATEMCK, INCREASESGR MASS UCFUSCCT# IN STHEQSHCT: LAYER. 
LMSC Iai MOSS - TMSZF 

RETURN 

ENC 


SUBROUTINE VNTICVRCZEVZZ-ZHTZZ/,ZHVZZ/2HLZZ,/AVL1) 
IMPLICIT REAL*8 CA-Fs/0-2) 


SUBROUTINE TC CALCULATE THE AREA OF A VENT COVERED BY THE FCT 
127 


MAMOAAMAAANAAARAAM 


AAMAAAADAADAAAAARAARAANAAANH 


AOAAMAAANAAAM 


LAYER. 
EQUATICNS EY He. MITLER. ADAPTED FRCM RONL CCDE 8Y J. GAHM. 


INPUT PARAMETERS: 
ZBVZZ, om WICTH CENTRE QVENT. 
ZHTZZ ~~ OISTANCE FROM THE CEILING TO TRE TRANSCM 
OF THE VENT. 
ZHV2Z.“- .HETGHTLOFSTHE* VENTS 


INPUT VARIABLES: 
ZHLZZ ~~ DEPTH CF THE LAYER IN THE ROOM CONTAINING THE VENT. 


CUTPUT VARIABLE: 
AVL1 =~ AREA OF THE VENT COVERED BY THE HOT LAYER. 


RV 2S -2RUL Zs 2A 22 
IF ¢€ HV eLT. O.CO ) THEN 


HV = €.00 

ELSE IF CHV .GT. ZHVZzZ >. THEN 
KV = ZHV2ZZ 

ENC IF 

AVL1 = HV * Z2BV2Z2 

RETURN 

ENC 


SUBRCUTINE WTRCONCCZMWLE/Z2MLZ2Z2,/2YLW21) 
IMPLICIT REAL&& CA-Hs0-2Z) 


SUBROUTINE TO CALCULATE THE MASS CCNCENTRATION CF WATER 
VAPCR IN TRE HCT LAYER. 


EQS. BY Ke EMMONS. ADAPTED FROM LAYROS COLE BY J. GAHM, 
JULY 1981. 


INPUT PARAMETERSS 


INPUT VARIABLES: 
ZMwL =~ MASS OF WATER VAPOR IN THE HOT LAYER. 
ZMLZZ =~ TOTAL MASS OF THE HOT LAYER. 


OUTPUT VARIABLE: 
ZYLW21 -~ MASS CONCENTRATION OF WATER VAPOR 
IN THE HCT LAYER. 


PARAMETER (YW = Q.CC0) 

IF CZMWLeLEeZMLZZ «AND. ZMLZZ wNE. O-DC) THEN 
ZYLWZ21 = ZMWL / ZMLZZ 

ELSE 
ZY¥LWZ1 = YW 

ENC IF 


LIMITS: 
IF (CZYLWZ1 «LT. YW ) THEN 
Z¥LW21 = YW 
ELSE LEC ZYLW214 oGT. T.00%) THEN 
ZY¥LWZ71 = 1.00 
ENC IF 


RETURN 

ENC 

SUBRCUTINE WTRPROCFR2O0-TMOZZ-TMOW1) 
IMPLICIT REAL*8 CA-K-0-2) 
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SUBROUTINE TO CALCLLATE THE RATE AT WHICH THE FIRE CF AN OBJECT 
PRCCUCES WATER VAPCR. 


ADAPTEC FRCW LAYRO4S CCCE BY Jez GAHM,s AUGUST 1981. 


INPLT FARAMETERS: 
FHZC == MASS FRACTICN OF WATER VAPOR EVCLVEC IN THE BURNING 
OF TRE CE8JECT. 


INPLT VARIABLES: 
TMCZZ == NEGATIVE CF MASS PYROLYSIS RATE OF THE OBJECT. 


OUTPUT VARIABLE: 
TMCW1 =~ MASS RATE CF EVOLUTION CF CO2 FROM THE OBJECT. 


TMCW1 = ~FH20 * TMO2ZZ 


RETURN 
ENC 


SUBRCUTINE EMSVTY 


SUBRCUTINE EMSVTY COMPLTES THE EMISSIVITIES CF ISOTHERMAL AND 
HOMCGCENECUS MIXTURES OF SOOT, CO2 ANC HZO AT A TCTAL PRESSURE © 
1 ATMOSPRERE. THE ACCURACY CF SUBROLTINE EMSVTY IS BETTER TRAN 
5S PERCENT AS COMPARED WITH SPECTRAL CALCULATIONS ANC EXPERIMENT 
MEASUREMENTS. ) 


INPLTSs: 


SUBRCLTINE EMSVFY RECUIRES 5 INPUT PARAMETERS 

1. ZKLEC CIN INVERSE METRES): THE ABSCRPTICN CCEFFICIENT CF S 
A WAVELENGTE OF C.94 MICROMETRES. ZKLED IS CAPPRCXIMATELY) RELA 
TO TRE SCOT VOLUME FRACTION, FV, BY THE EQUATION - 

ZKLEC = 7FV/C.94E-6~. ZKLEOD MUST BE GREATER TRAN CR ECUAL TO ZER 


2o PATEL CIN METRES) 2 MIXTURE PATKLENGTH. PATHL MUST BE GREAT 
THAN CR EQUAL TC ZERC. 


3. T CIN DEGREES KELVIN): GAS TEMPERATURE. T MUST BE CREATER 
THAN CR EQUAL TC 300.00, ANC LESS TRAN CR ECLAL TO 2C00.00. 


4. PCOZ CIN ATMCSPHERES)s PARTIAL PRESSURE OF CC2 IN A MIXTUR 
AT A TOTAL PRESSLRE OF 1 ATMOSPHERE. PCO2 MUST BE GREATER THAN 
EQUAL TC ZERCs AND LESS THAN CR EQUAL TC 1.0. FCR PCO2 LESS TH 
0.0C11, THE CONTRIBUTICN OF CO2 TO TKE MIXTURE EMISSIVITY IS AS 
TO BE ZERO. FOR (PCC2*PATHL) LESS TRAN 0.0011 ATM=-METRE, ThE 
CCNTRIBLTION OF CO2 TO THE MIXTURE EMISSIVITY IS ASSLMEC TO BE 
IF CPCOCKPATHL) EXCEECS 5.98 ATM=METRE, SUBRCUTINE EMSVTY OCES 
CALCULATE THE CONTRIBUTION CF CC2 TC THE MIXTURE EMISSIVITY. F 
CASES, THE CCNTRIBUTICN CF CO2 TO THE MIXTURE EMISSIVITY IS SET 
TO ZERO. 


5. PH2C CIN ATMCSPHERES): PARTIAL PRESSURE CF F20 IN A MIXTUR 
A TCTAL PRESSURE OF 1 ATMOSPHERE. FH2O0 MUST BE GREATER THAR OR 
TO ZERO- ANC LESS THAN CR ECUAL TC 1.0. (PCC2+PH20) MUST BE LE 
THAN OR EQUAL TC 1.0. FCR PH20 LESS THAN 0.C0114 THE CONTRIBUTI 
CF kReC TC THE MIXTURE EMISSIVITY IS ASSUMED TO BE ZERO. 


129 


AMON AAAAAARA AAA AA AAN AMA ANMVANMNAAAAANAAAAGHAIAAAAAANONA 


AON 


10 


2C 


FOR CPHEC*PATHL) LESS TRAN C.0011 ATM=METRE, THE CONTRIBUTION O 
TC THE MIXTURE EMISSIVITY IS ASSMUEC TO BE ZERO} IF CPHZO*PATH 
EXCEEDS 5.98 ATM@METREs SUBROUTINE EMSVTY OCES NCT CALCLLATE TH 
CONTRIBLTION CF K20 TO THE MIXTURE EMISSIVITY. FCR SUCH CASES» 

CCNTRIBLUTION OF H20 .T0 THE MIXTURE EMISSIVITY IS SET EQUAL TO Z 


OUTFLT: 


SUBRCUTINE EMSVTY RETURNS EMISS = TRE (CIMENSTONLESS) EMISSIVIT 
A MIXTURE OF SOCT» CC2 AND H20 IN THE TEMPERATURE RANGE 300 TO 
DEGREES KELVINs A GAS PARTIAL PRESSLRE RANGE 0.0 TO 1.0 ATMOSPH 
AND & PRESSURE@PATHLENGTH RANGE G.0 TO 5.98 ATM=METRES.: 


THE FOLLOWING SUBROUTINES MUST BE USED IN CONJUNCTION WITH EMSV 
SOOTs PENTAs ASYMP» EGASs DLECKs SCRICH AND CHEBY. 


QUESTIONS REGARCING EMSVTY MAY BE ACCRESSED TO 
ASHCK T. MOCAK | 

FACTCRY MUTUAL RESEARCH CORPORATION 

NORWCODs MASSACHLSETTS C2062 USA 

TELEFHONE (€617)762-4300 EXTS46 


COMPLTATION TIME: 


EACh CALL ON SUBROUTINE EMSVTY TAKES 11.85 MILLISECCNOS 
OF CPU TIME CN AN I8M 370/158. 


SUBROUTINE EMSVTYCZKLED,/PATHL «Tre PCO2,PH20-EMISS) 
IMPLICIT REAL #8 CA-H,0-Z) 
IFCZKLECLE.0.0CO) ES=C.O0C0 
ES © SOCT EMISSIVITY 
IFCZKLEQ.LE.0.000) GOTC 16 
CALL SCCTCZKLEC/PATHLAT eTAUS) 
TAUS = SCOT TRANSMISSIVITY 
ES#=7.0C-TALS 


CONTINLE 

IFCPCOZ.LE.C.000 e AND. PH2ZO.LE.C.00C) EG=0.C0D00 
EG - EMISSIVITY CF GASECLS SPECIES:C€C2 AND #20 

ITFCPCOc LE.G.00C e AND. PH2O.LE.C.00C) GCTO 20 

EGSEGCASCPATKL,PCO2sFH2O-T) 

CONTINLE 

EMISS=ESt+EG@ES*EG 

RETURN 

ENC 
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SUBRCUTINE SOOTCZKLED/-PATHL,-TBLACK,TAUS) 

IMPLICIT REAL*®E CA-F-0-2) 
SUBRCUTINE SCOT COMPLTES THE TRANSMISSIVITY (CTAUS) CF PATH (PAT 
CF SCOT TO A BLACKBCCY RADIATION SOURCE AT A GIVEN 
TEMPERATURE (T8LACK). 


IPCZKLEC.LE. 0.00) GOTO 10 
ARG=1.CC+ZKLED*XOATHL*TELACK*6.53370-5 
TBLACK = SOURCE TEMPERATURE CR GAS TEMPERATLRE 
CALL PENTACARG~sV) 
SUBRCUTINE PENTA COMPUTES THE PENTAGAMMA FUNCTICN 
ARG = ARGUMENT CF THE PENTAGCAMMA FUNCTION 
TALS=V*%.1529897336CC 
TAUS = SCOT TRANSMISSIVITY 
RETURN 
TALS=1.C0 
RETURN 
ENC 


SUBRCUTINE PENTACX,V) 

IMPLICIT REAL*&8 CA-hs, 0-2) 
SUBRCUTINE PENTA RETURNS THE VALUE WV CF THE PENTAGAMMA FUNCTION 
CF ARGUMENT X. RECURRENCE FCRMULA €.4.€, ANC ASYMPTCTIC FORMUL 
624.14 CPAGE 26C) CF ABRAMOWITZ AND STEGUN ARE USED IN 
TRIS CALCULATION. 


IFCX.GE.4.CG) GOTC 30 
TFCX.GE.5.C6C)* GCTO 20 
IFCX.GE.2.f0) eédTC 10 
S=(1.00/€X42.00)%*441.00/ (X41.00) 4441 -CO/X%%4)%6.0C 
Z=x+3.cC 

CALL ASYMP(Z,ZV) 

GOoTCc 4¢ 

COATINLE 
S$=(12.0C/0X41.00)%%447 00 /X%*4)%E.DC 
Z=x+2.CC 

CALL ASYMP(Z,2ZV) 

GOTO 4C 

COKTINLE 

S=EsCO/KX AHS 

Z=xX+1.CC 

CALL ASYMP(Z,ZV) 

GOTC 4C 

COAKTINLE 

$=C.00C 

CALL ASYMP(XsZV) 
CONTINLE 

VeZVtS 

RETURN 

ENC 
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IMPLICIT REAL*8 CA=h,0"2) 
SUBRCUTINE ASYMP COMPUTES THE ASYMPTOTIC EXPANSICN FCR THE 
PENTAGAMMA FUNCTION. 


Z11#1.CC/Z 

ZI2=ZI1%Z11 

ZIssZ11*Z2Z12 

ZVEZI3*CC2COFS OC HZIVI+ZI 2x C2.00+ZI2x(-1.CO+ZI2x 
4 C1eP3335335353300+7212%(9°3.00410.00e272))))) 

RETURN 

ENC 


FUACTION EGASCPATHL + PC/PWeT) 

IMPLICIT REAL*8 CA=H,0-2) 
FUNCTION EGAS COMPUTES TRE EMISSIVITY OF A GIVEN PATH CPATHL) 
CF A MIXTURE OF CO2 ANC H20 AT TEMPERATURE T. 


PC = PARTIAL PRESSURE OF CO2 
PW'= PARTIAL PRESSURE OF H26 


EGAS#0.C00 

IFC(T.LT.30C.00 «OR. TeGT.2000.00) RETURN 
ec2=0.0CC 

IFCPCLT20.001100 OR. PCeGTs1.000) GOTC 10 
PCL=PCAPATHL 


ITFCPCL.LT.C2.001100 .ORe. PCL.GT.5.9800) GCTO 10 
CALL SCRICHCPCeoPCL eo Tot EC) 

CONTINLE 

IFCPWelLTe0e001100 «OCRe PWeGTe1e-000) GOTC 20 
PWLSPWRPATHL 

IFCPWLeLTeCe001100 OR. PWLeGT.5.980C) GOTO 20 
CALL SCRTCHCPWsPWLe Teer EW) 

EGASSEC+EW 

ITFCEC.LE.0.C00) RETURN 

PCPW=PC4+PW 

XIT=PW/FCPW 

IFCXT.LT«O.CI1OC) RETURN 

PCWLEPCPWePATHL 

TF CPCWLeLT.C.10C > RETURN 
DELEZDOLECK(CXI-PCWLeT) 

EGASSEGAS-CELE 

RETURN 

CONTINUE 

EGAS=EC 

RETURN 

ENC 


FUNCTICN OLECKCX/PL-T) 

IMPLICIT REAL*®& (CA=H,O0*Z) 
SUBROUTINE OLECK COMPUTES THE 2.7 AKC 15 MICROMETER CVERLAP 
CORRECTICN FCR MIXTURES CF CO2 AND #20. THE OVERLAP CORRECTION 
IS CCMPLTED BY USING A TEMPERATURE=ACJUSTED VERSION CF THE 
CVERLAP CORRECTICN FACTCR SUGGESTED BY Be. LECKNER 
CCOMBUSTION ANO FLAME VCLUME 19 PAGES 32-48% 1972) 

TFCPL LT.0.100) ¢cTo 10 

TERM=X/(10.7004101.CO*X) -X**10.400/111.7C0 

TERM2=LC0G610(101.32500*PL) 

TERM2Z=STERMER*2.7600 


L32 


AAD 


Aaa 


TT=T/1C00.C0 

TTZ=TTATT 

A=-1.02040E&200 

B=2.2448975C0 

C2-0.224692860C 

TERMSSARTT2¢ S8eTT + C 
TERMZ REPRESENTS THE TEMPERATURE ADJUSTMENT 

OLECK=TERM *TERM2R TERMS 

RETURN 

OLECK=C.000 

RETURN 

ENC 


SUBROUTINE SCRICHCP-PL-Te~INCEXs V) 
IMPLICIT REAL#& (A-k-0-2) 
DIMENSICN C€C(37474),CW(37474), $€¢€34474) 
TFCINGEX SEC S22 eGCTC 10 
CC REPRESENTS AN ARRAY CF 48 COEFFICIENTS FCGR CC2 


CO(141-1)=-C.275456EDt01 
COC ete cd erC e295 7eSC+0C 
CO17172)=-C 2012324545400 
CC(1-174)2=0.12752870-01 
CC¢(1-2-1)"C.1503051C+01 
CO(17-2-2)=0C 231564490400 
CC(1,2-/2)2C.1058&1266-01 
C0(17274)=-C.37296250-C61 
C06(143-1)=-0C.24741150+0C 
CC(173-2) =-0.332384E0-01 
C€C(1,-3,2)=-C.1&194710-01 
C0(173-4)=C.22897€SC-01 
€C (174-1) =C.49940290-01 
CC(174-2)=-C.198&678E0-02 
CC0(1-442)=C.30C7858&C-02 
CO617424)=-0.117559ED-0Z 
CO(2-171)2C.573772206-02 
CO€2-17-2)=-0.93284580-02 
CC(2-172)=C.29CE266C0-02 
€C0271-4)=C.4227520C-03 
CC(272-1)=-C.315178&40-02 
CO€27272)2C.5632821T-02 
CC (22272) =°-0.326E02950-02 
CC(2-274)=C.70658840-03 
CC (2-3-1) =C.1668&751C0-03 
CC C22372)2-0.73265320-03 
€06273,72)2C.36398550-03 
CC(2-3-4)=C0.3222318&C-03 
CC(274-1)=C. 738663 86-03 
CC (27472) =7°0.72770720-03 
CCO0274,3)2C.5925968C-03 
CC(27474)=-0.206214120-03 
GOG37471)2C. 53256716-02 
CC(371472) =-0.54291250-02 
COt3 71720 =C.4:7 6456CE-02 
C€C(3-174)=C.30250310-03 
CC(37271)=-C.186270C0-02 
COt3 ser .cl ele ccubat seme 
COC3e272)2=-0.19195225C 0-02 
CC(637-2-4)=C.34740220-03 
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CC(3,3,1)20.12048C706-03 
COC3437-20 28°C. 4479527003 
CC(34342)20.24975210°03 
CC(373-4)2C.18129560-03 
CO6374,1)=C.42181690-03 
CO(344-2)=-0.40466C8D-02 
CCC374/2) 20. 325€8610-03 
C03 444) 2-0 .95149810-04 
GOTO20 

COATINLE 


CW REPRESENTS AN ARRAY CF 48 COEFFICIENTS FCR Hee 


CWO14101) 2°60 .2554275 0401 
CWl12122) "0 .711847204+00 
CWO17173)=°0.99568390-03 
CW(12174)20.12265600-01 
CWC172,1)2C.25103310401 
Cwli-272)2C 648180806400 
CWK17273)2°C.32205970-01 
Cwl17274) =-0.55243450-02 
CW(17371)=°0.419163€04+00 
CWC4437¢6)2°0.127518CO+0C 
CwC1-372)20.38779300-01. 
Cw17374)=C.8862328C-03 
CWO174-1) 2-0 .32239120-01 
CWwO174-2)2°0.18 202461001 
CW(17472) °C .22231420-01 
CW617474) =-0.59407810-03 
CWO241-1)=C.112E869C0400 
CWl27172)="0.81238290-01 
CWl2-1-2)20.15149400-01 
CWO27174)=02139288006-02 
CWC272-1)=-C 2.929 88C50-02 
CWwl2-272)=0.455C6E600-01 
CWC2-2-3)=-0.2C820CE0-01 
CWl27274)=C.201323610-02 
CWC2-371)=°0C 2.427503 20-01 
CwWl27342)=0.192455706°01 
CWC273-72)=C 18859877002 
CWO27344)=°0.46184140-02 
CW(274-1)2C.7077876C-02 
CWC24472) 2-0. 20961880-01 
CWl27422) 20.1458 2620-02 
CWO274,4) =0.385142106-02 
CW(3 71717) 20 253415170701 
CWC34142)=-0.34C76E920-01 
CWO34173)2=C 14354611002 
CWO34174)=C.149203 80-02 
Cwl3r,2e1) =-C.47C817ED-02 
Cw(3-2-2)=C 2086 286C-01 
CWO3 4267) =-02.94775320-02 
CWC372-4)20.615227206°03 
Cw(3-3-1)=-C.210646220-01 
Cwl2,-3-2)2=C.7515796C-02 
CWC343-2)=C. SHESSCIC=-02 
CwC34374)=-0.27561440-02 
CW(3-4-1)=0.43189756-02 
CWO374-2)=-C 21065744001 
CWC2-4,72)=C.40910840-03 
CW(374-4)=C0.255C43506-02 
CONTINUE 
X=LCOGCF)/3.450041.CF0 
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Y=(LOGCPL)+2.55500)/4.34500 
vV=C.COC 
CO 50 I1I=1,3 
T=II-1 
CALL CHEBYCI+xX-TIX) 
Vé=0.CCO 
Co 4C JJ=1-4 
JzuJr1 
CALL CREBYCUsYe-TJUY) 
V7=C.0CC 
CO 20 KK=124 
K=KK=1 
CALL CHEBYC(K,2,TK2Z) 
IFCIACEXeECeTISCCII- Uc KKVECCCIIZI IKK) 
IFCIANCEX-EQe2)SCCKCII se JU AKK I RECWCIIZ JIA KK) 
V7=V7+TKZ*SCCIIZ IISA KK) 
3C COATINLE 
V6=V6FV7*TIUY 
4C CONTINUE 
V=VtVERTIX 
5C COATINLE 
VSEXPCV) 
RETURN 
ENC 


SUBRCUTINE CHEBYC(Ns X-V) 
TMEL ICING REAL®E CA-H 0-2) 
V REPRESENTS VALLE OF ChHEBYSHEV POLYNOMIAL CF ORCER A 
ANDO ARGLMENT Xo 
v=1.00 
IFCN) 10,1C0,20 
1C RETURN 


2C V=xX 
IF CN-1) 10,1020 
30 F=xtx 
VM1=X 
VMz=1.CC 
CO 4C I=Zé-eh 
V=FuRVMIT-VMC 
VM2=VM1 
VM1=V 
4C COATINLE 
RETURN 
ENC 
SUBROUTINE RTIMECIFLAG) 


THIS SU@ROLTINE RETURNS TC THE LSER OIFFERENCES IN CPU TIME, 
FROM wKEN FIRST CALLEC wKITH IFLAG = Ov TO WHEN LATER CALLEC 
WITh IFLAG = 1. 


SALE SERULIPKITIME) 

GO TC (10/20) IFLAG+1 
TOP LI Me) BT TIME 

RETURN 


COUIOIEFT = ITIME - ITIMEO 
Seer lOoRTCLOLFFT. / 106. 


ea 


= 
“i le‘ 
1 
' a) 
: 


MIN = CSEC / 60. bn 
SEC = AMCO(CSEC,/60.) | OMIT CDEP 
WRITE €6-3C) MINs SEC . Re 


WRITE (19-30) MIN, SEC | estets 90 Ot 
FORMAT (/,% ELAPSED CPU TIME: °»I34% MINUTES» ‘+ Fbe2s’ SECC 
RETURN CxIFASaTIVSSHS Glad ie 
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FILE VAR.CWN 


THIS CCMMON BLCCK CONTAINS THE ARRAYS WHICH STCRE THE CUTPLT CF 
THE CALLS TC THE VARICUS PHYSICAL SUBRCLTINES IN UNPACKED FCRM. TRE 
COMMON BLOCK IS DIVIOEC INTC THREE SECTIONS AS FOLLOWS: 

SECTICN 1 IS RCUGHLY EQUIVALENT TO THE MARKS VERSICN CF CCMMON 
/VAR/. THE ARRAY NAMES IN THIS SECTION CORRESFOND TO THE NAMES OF 
THE VARIABLES FCR WRICH THE NUMERICAL MACHINERY IS ACTUALLY TRYING 
TO SOLVE. RECALL TRKAT THE NUMERICAL PACKAGE SEES A PROBLEM IN THE 
FORM 


FCWsXrY¥et) = Oe 
GOWrXe¥rt) = X?” 
HQWeXeVYet)d = Y 
LChnsXr¥rt) = Ze 


WHEN TRE PRCBLEM IS REPRESENTEC IN THIS FORMs WE CAN SAY TREAT THE 
FIRST SECTICN CF /VAR/ CONTAINS A NAME CORRESPONDING TC EACH CCM- 
PONENT OF EACH CF THE VECTORS Ws Xe Yo AND Ze 

SECTICN 2 CF /VAR/ IS USEG TO STORE TRE OUTPUT OF THE ROOT= 
FINCING EQLATICNS. THUSs THE NAMES IN THIS SECTION OF /VAR/ 
CORRESFOND TO TRE CCMPCANENTS OF THE VECTCR VALUED FUNCTION F. 

SECTICN 3 CF /VAR/ IS USEC TO STCRE DERIVATIVE INFCRMATIOAN,. 
THUSs THIS SECTION IS LSED TO STORE THE CUTPUT CF THE VECTCR 
VALLEO FUNCTION Ge ThE SET CF NAMES IN SECTION 3 CF /VAR/ 
CORRESFCNOS TO A SUBSET OF THE NAMES IN SECTION 1 EXCEPT 
THAT EACH ARRAY NAME IN SECTION 3 YS PREFIXED BY TRE LETTER D TO 
INCICATE TrRAT THE ARRAY IS USEC TO STORE THE DERIVATIVE OF THE 
VARIABLE WITH CCRRESPCNCING NAME IN SECTION 1. THUS, CZMC2Z IS 
USEC TC STCRE THE CERIVATIVE OF ZMCZZ ANC CAQWZZ IS USEC TC STCRE 
THE CERIVATIVE CF ACWZ22Z. 


REAL*8 TELZR-TELZO-ZMLZZ-TMLZZ,ZELZZ~ 
TELZZ/ZHLZZ-ZKLZZ/-ZYLOZ/-ZYLOZ/-ZYLMZes 
ZYLSZ/ZYLWZ/ZPRZZ/-ZULZZ/-TEPSM/-TEOSM, 
THCOS + TMOMSeTMCSSeTMOWSsZMOLs 
ZYMLeoZMCLeoZMWE se ZMSLeAVLSMsWVLS, 
PPLRseTMOSMsTMPSMe TMUSMse TMDOSMeTEUSMs 
EFLSMsB20XYS/TMCZFso TMWZFESTMSZFe TMMZE 
TYCZFeFQOPCRAZKCZZ-2M02ZZ, 
TMOZZ/¢TEOZZ/-ZHEZZ cI MPZZ, 
TEPZReZRFZZeZHFZZ se FQOLORs 
FOWCRs¢TMOZB/-PRIsAChKZZ/2ZKWZZ- 
FOLWReFCPWReFCLWO,s 
TYNET,s 
DZMLZZ/-OZELZZ/-CZMOZZ/-OZMDL/-DZMMLs 
OZMCL/OZMWhLsDZMSL/-CAQWZZ/-CZRFZZ 


Ara -2 4+ OMAN + au & is nD = 


NOTE TREAT IF TELZR IS NCT THE FIRST VARIABLE IN COMMON /VAR/ THEN 
THE EQUIVALENCE STATEMENTS IN FUNCTs PACKX AND UNPACK MUST BE 
CHANGEC. 

COMMON /VAR/ TELZRCMR)-TELZOCMR) »-ZMLZZ(MR) so TMLZZCMR) pZELZZ CMR)» 
TELZZCMRIFZHLZZOMR)/AZKLZZ CMR) A ZYLCZCMR) -ZYLOZCMR) »ZYLMZCMR) 
ZYLSZOMRISZYLAZOMR) pZPRZZCMR)-ZULZZ CMF) -TEPSMC(MR) »-TEOSM (MR) » 
TMCOSCMRYsTMOMS CMRI TMCSS CMR) TMOWS CMR) -ZMOCL CMR), 

Z¥PMLCPR) sZMOLCMR) sZMWLEKOMR) »ZMSL CMR) -AVLSMCMR) sWVLS CMR), 
PFLRCMR) s TMCSM CMR) -TMPSMCOMR) s TMUSMCMR) » TMCSMCMR) ATEUSM CMR) » 
EPLSMCMR) -BOXYS CMR) STMOZFCMR)sTMWZF CMR) oe TMSZECMR) s TMMZFE CMR), 
TPOZFCMR) -FQOPCROMC/MR) -ZKCZZCMO%MR) p-ZMCZZCMOsMR) sg 
TMCZZOMCOMR) -TECZZ CMC eMR) oe ZHPZZ (MC MR)» TMPZZ CMC MR) » 
TEPZROMCeOMR) ep ZRFEZZCMO-MR) ¢ ZHFZZOMCeMR) cFOLCROMCOMR) 
FOWCRCMOsMR) s-TMOZECMOZMR) sPHICMOsYR) -ACWZZ CMW) pe ZKAZZ (2 eMW) 
FOLWROC2eMW) -FOPWROCeMW) A FOL WDC 2,Mb) 7» 


+wOmn + WU LS in = 
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1 DZMLZZ¢0MR)/OZELZZCMR) -CZMCZZCMOeMR) -DZMOL CMR) »CZMML CMR), 
Z OZMOL CMR) ATZMWLOMR) -OZMSLOMR) -CAQWZZ CMW) -CZREZZ CMC MR) 
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FILE SLONG.CMN: 


THIS INCLUCE FILE CCNTAINS ALL CF THE GLOBAL PARAMETERS WHICH 

DESCRIBE THE BUILDING IK WHICH THE FIRE IS CONTAINEC. IT CONTAINS 
SUCH INFORMATION AS RCCM¥s OBJECT VENT ANO WALL GEOMETRIES PHYSICAL 
CONSTANTS FCR THE RUNvy THE INTERCONNECTIONS OF ROOMS, WALLS ANC VENTS? 
A DESCRIPTICN CF THE NUMBER CF OBVECTS IN EACH ROOM, INCLUCING THE 
TYPE OF FIRE ON EACr OBJECT. 


Z8VZZ *° WICTH CF TKE VENT. 

ZHVZZ =~ HEIGHT OF THE VENT CFROM BASE TO TRANSCM). 

ZHTZZ == DISTANCE FROM THE TRANSOM CF THE VENT TO 
THE CEILING IN THE SAME RCCM. 

CD -~ VENT FLOW COEFFICIENT FOR ALL THE VENTS. 

ZNWZZ ~- THICKNESS CF ThE WALL. 

ZJhZZ “> THERMAL CONDUCTIVITY CF THE WALL. 


ZGh2Z2 = TRERMAL CIFFUSIVITY OF THE WALL. 

ZChZZ e- SPECIFIC HEAT CF THE WALL. 

VMwZZ == DENSITY OF THE WALL MATERTAL. 

ZOWZM ==> MAXIMUM HEAT TRANSFER CCEFFICIENT FOR WALLS. 

ZGhZN -= MINIMUM HEAT TRANSFER COEFFICIENT FOR WALLS. 

STATE -- TRE BURNING STATE CF EACH OBVYECT (E.G. 
FLAMINGs HEATING, ETC.) 

ZXCZZ “= ThE X“COCROINATE CF.TRE OBJECT. 

Z¥CZZ =~ THE Y-COQRCINATE CF TRE OBJECT. 

ZHCZZ s- THE HEIGHT OF THE CBJECT. 


ZNCZZ «= THE THICKNESS CF THE CAJEGT. 
ZJCZZ -- TRERMAL CONDUCTIVITY CF THE OBJECT. 
ZGCZZ -- THERMAL CIFFUSIVITY OF THE CB8JECT. 
CCCZZ “=SSPECIFIC HEAT GCE THE SCaJECT. 
VMCZZ *= DENSITY CF THE OBJECT. 
EB ~~ EMMISIVITY/ABSORPTIVITY CF THE SURFACE OF THE OSJECT. 
CHI =~ FRACTION OF THE HEAT OF COMBUSTICN RELEASED IN THE 
BURNING CF ThE OBJECT. 
CAC ZC == INDLULAL FUEL MASS <Cr sl HE OBUEC Ts 
BRE LG. os 
ZRFZM == MAXIMUM BURNING RACTIUS. 
CF == 
QVAP -- HEAT OF VAPCRIZATICN OF THE CBVECT. 
LOACE == 
ALPHA <-- 
L£T1G west ME OF ITGNIVECN OFO TRE OSJECT. 
ZKCIG == JGENITICN TEMPERATURE CF THE OEJECT. 
ZKCPY ~~ TEMPERATURE OF THE ONSET OCF PYROLYSIS FOR THE OBJECT 
XGAMMA == AIR/FUEL MASS RATIO IN A FREE BURN OF THE OBJECT. 
XGAMAS == STOCICFICMETRIC AIR/FLEL MASS RATIC FCR THE BURN= 
ING CF THE OBJECT. 
GRRL Tt as 
FCC2 == MASS FRACTICN OF COZ EVCLVEC IN THE PYRCLYSIS 
GASES CF THE OBJECT. 
FCC =~ MASS FRACTION OF CO EVOLVED IN TRE PYROLYSIS 
GASSES OF THE OBJECT. 
FS = MASS FRACTION CF SMCKE EVOLVEO IN THE PYRCLYSIS 
GASES OF -THE CBJECT. 
FHeC =~ MASS FRACTICN CF WATER VAPCR EVCLVEC IN THE PYRCL- 
YSLS GASES GE THE CB JECT. 
ZKFZZ. == TEMPERATURE .OF THE FLAMES .OF KE OBVEGTS. 
ZLAMOCA -=- 
TMF GZ 7 MASS .FLOW RATE OF oLAE sRUEL AOR stHE OCR JEG ACI E THE 
OBJECT IS & GASS BURNER. 
AUGee ae 
FIRTYP == THE TYPE CF FIRE CN THE CEJECT CGROWING, POOL, 
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CR BURNER) IF THE OBJECT IS BURNING. 


ANGV == ANGLE CF THE SURFACE OF THE CB8JECT WITH THE VERTICAL 
PLANE THROUGH THE X@AXIS. 

ANGH == ANGLE OF THE SURFACE OF THE OBJECT WITH THE HORIZONTAL 
PLANE. 

AFIRE -- FIRE SPREAC PARAMETER FOR THE CSJECT. 

PSIQ -- INITIAL VALLE FCR THE SEMI“APEX ANGLE CF TRE FLAME 


OVER TRE CBJECT. THIS VALUE IS USED WRENEVER THE 
FIRE OF THE OBJECT IS NCT CXYGEN STARVEC. 
TPSIO -- TANGENT CF THE SEMI“AFEX ANGLE OF THE FLAMES CVER 
THE OBJECT. .oThIS VALUE TS USEC WHENEVER THE FIRE 
OF THE OBJECT IS ACT CXYGEN STARVEC. 


BETA -- 

OLCTIM “= THE GTIME AT WHICH THE VALUES CF THE PREVICUS 
TIME STEP VALLES WERE TAKEN. 

ZREZZP == RAOLUS sOmet(he ETRE OF THE ‘OSJECT AT THE "PREV= 
TOUS TIME STEP. 

TMCZZP ~~ NEGATIVE CF MASS PYRCLYSIS RATE AT TKE PREVICUS 
LIME STEP. 

LHR GLP == ECAME GRETGHT CE CRJECT (AT THE PREVIOUS TIME STEP. 

ZMCZZP -- MASS CF TRE OBJECT AT THE PREVIOUS TIME STEP. 

ZKCZZP -- TEMPERATURE OCF TRE UPPER SURFACE OF THE CBJECT 
AT. TRE -PREVICUS TIME STEP. 

ZLKZY -- LENGTH CF THE ROOM ALCNG THE Y-DIMENSICN. 

ZLRZX -- LENGTH CF THE RCOM ALCNG THE X-OIMENSICN. 

ZHRZZ =~ HEIGHT OF THE RCOM. 

ZKAZZ == TEMPERATURE CF THE COLC LAYER IN THE RCOM. 

VMAZZ -=- DENSITY GF THE AIR IN THE CCLC LAYER CF THE 
RCCM. 

FIRCCM ~~ INOICATES IF THERE IS A FIRE IN THE KCCM. 

VERSUN =~ INTEGER ARRAY INCICATING WHICK VERSICHN CF 
EACH PHYSICAL SUBROUTINE IS IN USE CCNLY FOR 
THOSE PHYSICAL SUBROLTINES WITH MORE THAN ONE 
VERSICN. CURRENTLYs VERSUN IS LARGE ENOUGH TC 
RANOLE FIVE SUBROUTINES WITH MULTIPLE VERSIONS. 

ZKACUT =~ TEMPERATURE CF THE AMBIENT AIR OUTSICE TRE BLILDING. 

ZULCUT ~~ ABSORPTIVITY CF THE AIR CUTSICE THE BUILDING. 

VMACUT ~- CENSITY CF THE AIR OLTSICE TRE BUILCING. 

CP -- SFECIFIC HEAT OF AIR. 

YCC2 -- MASS CONCENTRATION CF CO2 IN THEE OUTSICE AIR. 

YO? ~~ MASS CONCENTRATICN CF OXYGEN IN THE CUTSIDE AIR. 

NRCCMS -- NUMBER CF ROOMS IN TRE BUILDING. 

NWALLS =" NUMBER CF WALLS IN THRE BUILDING. 

NVENTS =~ NUMBER CF VEATS IAN TRE BUILDING. 

C8JS -- NUMBER CF.CEJECTS IN THE RCC#. 

WLINKCSICE/WALL) -- THE ROOM ON THE “SICE™” CF THE "WALL". 


NCTE THAT IF wWLINK(SICE,/WALL)=C TREN THE "SIDE” OF THE 
"WALL" IS CN THE OUTSICE CF THE BUILCING. 
VLINKCSIBDE,WALL) -- THE ROCM ON THE “SICE” OF THE “VENT”. 
NCTE TRAT IN VLINKCSICE-VENT)=C TREN THE “SIDE” OCF THE 
"VENT IS CN THE CUTSICE CF THE BUILDING. 
LAYRCR) -=- SET TC TRUE IF THERE IS A HCT LAYER IN THE RCOM. 


NAMES FOR TRE VARICLUS FIRE STATES AND FIRE TYPES OF AN CBJECT 
(NOTE THAT COLC-HEATNGA-CNSUM-ZFLAME ARE THE CNLY STATES USEC IN 
THE CURRENT PRCGRAM). 


STATES: 
CORE“ OL le 
RFEATNG => REATNG. 
PYROL -- PYROLYZING. 
CHRCFR -- CHARCCAL FIRE. 
EXTING ~= EXTINGUISFED. 
CNSUM -- CCNSUMEO. 
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SMCLD -- SMOLDERING. 
FLAME == FLAMING. 


E. TYRE Sis 

GRCWNG ==* GROWING. 
POCL == POCL. 
BURNER BURNER. 


INTEGER COLD/-HEATNGsPYRCL/-CHRCFReEXTING-CNSUMsSMOLD FLAME, 
GRCWNG-FOCL/-8URNER 


PARAMETER (COLC = 14 HEATNG = 2, PYROL = 3, CHRCFR = 8, 
EXTING Gre CNSUM = 10,4 SMOLD = 4, FLAME # 5, 
BLRNER 3, GRCWNG = 17 PCOL = 2) 


REAL*8 Z8VZZ/-ZHVZZ/ZHTZZ-CC 
REAL*8 ZNWZZeZIWKZZe61GWZZeZCWZZ-VMWZ2Z-ZCW2M,Z0WZN 
REAL*8 ZXOZZ/ZYCZZ/ATHOZZ-ZINCLZ/-LJOZZ-276CZZ-ZCOZZ-VMCZZ,EB, 
CekIvZMCZOeZRFZCeZREZMe CP eC VAP ZCAZZ/ALPHA,ZTIG/-ZKOIG, 
ZKCPYsXGAMMALXGAMASs/ZRFZIZFCO2eFCCoFS/FH2Ce+ZKF2Z, 
ZLAMDAs,TMFGZeZLFZZ¢ANGVsANGHSAFIREsPSIO/TPSIOZBETA 
INTEGER STATE/FIRTYF 
REAL*8 CLOTIM/ZRFZZPe-TMOZZP,ZHFZZPeZMOZZP-Z2KOZZP 
REAL®8 ZLRZVs+ZLRZX/ZHRZZ-ZKAZZ/VMAZZ 
LOGICAL FIRCOMs/LAYR 
INTEGER VERSUN 
REAL*®8 ZKACUT/ZULCLUTsVMACUTs/CP,YCO2s YO? 
INTEGER NRCOMSeNWALLSs/NVENTS cO8 SS eWLINKs/VLINK 
PARAMETER (ZULOLT = .O01CO0-YCOc=.0COS0C-YO2=.231800) 
COMMON /BLONG/ ZBVZZ(MV) -ZHVZZCMV) -ZHTZZCMV) -COAZNWZZ CMW) 
ZIWZZ¢CMWI A ZGWZZ CMW) pe ZOWZZ CMW) A VMWZZ CMW) ep LOWZM se LZOWZNG 
STATECMCsMR) pA ZXOZZ CMO “MRD -ZYOZZCMOZMR) pZHCZZ CMC AMR) » 
ZNOZZOCMOCeMRISGZIOZZCMOeMR) AZGOZZCMOOMR)D -AZCCZZ CMC AMR)» 
VMOZZOCMOsehMR) ZEB CMC MR) »-CHICMOZMR) oe ZMOZC CMC AMR) @ 
ZRFZOCMC MR) AZREZM CMO SMR) ACF CMC MR) -CVAPCHC AMR) A LZCAZZ, 
ALPHAsZTIGCMOsMR) »-ZKCIGCMCOMR) -ZKOPY ChCeMR) »XCAMMA CMO, MR) » 
XGCAMASCMO-MR) -ZREZICMOsMR) se FCC2CMCZMR) - FCC CMO oMR) 
FSCMOsMR)D cFHOC CMC MR) -ZKFZZe¢ZLAMDAsTMFGZCMOsMR) -ZUFZZ, 
FIRTYFCMO-MR) -ANGVOMO%MR) cANGHCMOSMR) SAPIRECMOLME) » 
PSTOCMCeMRI-TPSIOCMOeMR) -BETACMOsMR) -CLOTIMAZREZZPECMOeMR) » 
TROZZECMOeMR) »sZHFZZP CMC MR) op ZMOCZZECMOeMR) ep ZKCZZP CMC MR) 
ZLRZYCMRD -ZLRZXCMR) +ZHRZZ CMR) pZKAZZOMR) »VMAZZCMR)» 
FIRCOM CMRI sVERSUNC5S) » ZKAOUTs/VMACUTsCP/NROCMSsNWALLS, 
NVENTS +CBUS CMRI oWLINK C2-MW) cVLINKC2-MV) -LAYRCMR) 
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OIMN.INC 


INCLUCE FILE CONTAINS INFORMATION ON THE CIMENSIONS OF 
To Woeb tN THe 2NTCReR Gee 


MAXRMS == MAXIMLM NUMBER CF ROCMS ALLOWED. 
MR ~~ & SYNCNYMN FCR MAXRMS. 
MAXOBS =~ MAXIMUM NUMBER CF OBJECTS ALLCWEC IN EACH ROCF. 
MO =~ & SYACNYMA FCR MAXCBS. 
MAXVTS == MAXIMUM NUMBER OF VENTS ALLOWED. 
MV =~ A SYNONYM FCR MAXVTS. 
MAXWLS =~ MAXIMUM KUMBER CF WALLS ALLOWED. 
MW ~~ & SYACNYPMA FCR MAXWLS. 
TRAT THE ABOVE SYNCNYMNS ARE NEEDEC SC THAT TKE COMMON 


BLOCK CECLARATICNS IN /BLONG/ AND /VAR/ WILL NOT EXCEED THE 
MAXIMUM NUMBER CF ALLOWABLE CONTINUATICN LINES. 


B&W h = 


RMVARS == NUMBER CF ARRAYS IN SECTICN 1 OF /VAR/ INCEXEC 
XXXXXCMAXRMS). 


OBVARS ~~ NUMBER CF ARRAYS IN SECTION 1 OF /VAR/ INCEXEC 
XXXXXCMAXCBSsMAXRMS). 

VTVARS == NUMBER CF ARRAYS IN SECTICN 1 CF /VAR/ INCEXEC 
XXXXXCMAXVTS). 

WLVARS =~ NUMBER CF ARRAYS IN SECTICN 1 OF /VAR/ INCEXEC 
XXXXXCMAXWLS). 

SDVARS =~ NUMBER CF ARRAYS IN SECTICN 1 OF /VAR/ INCEXEC 
XXXXXC2,MAXWLS) © 

NVARS == SIZE CF SECTION 1 CF CCMMCN /VAR/. 

VARSIZ =~ TRE NALMBER OF VARIABLES IN ALL OF CCMRON /VAR/ 


CINCLUCING SECTICNS 2 ANC 3). 


MAXVRS -~- TRE MAXIMUM NUMBER CF VARIABLES WRICH ARE ALLCWEC 


IN TRE SYSTEM. 


INTEGER MAXRMSs/MAXOBSsMAXVTSsMAXWLS sMRoMOsMVe Mb MAXVRS/ VARSIZ 


PARAMETER CMAXRMS = Sr MAXCES = 3, MAXWVTS = 64 MAXWLS = 5) 


PARAMETER (MR = MAXRMSs MG = MAXC8Ss MV = MAXVTSs MW = MAXWLS) 


INTEGER RMVARS/CEVARS/VIVARS cWL VARS NVERSs/STVARS 


PARAMETER CRMVARS = 417 OBVARS = 144 VTIVARS = Cz 
ALVARS = 17 SECVARS = 4 MAXVRS = ¢CO, 
NVARS = MAXRMS*RMVARS + MAXCBS*MAXEMSACBVARS + 
MAXVTS*VTVARS + 2eMAXWLS*SCVARS + MAXWLS*WLVAKS, 
VARSIZ = NVARS + &*MR + 2kMOeMR + T*MB) 
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FILE OSCNAM.INC 


THIS FILE CCNTAINS THE SYMBCLIC NAMES FCR THE VARICUS TYPES OF 
UNPLANNEC CISCCNTINUITY WHICH MAY CCCUR IN THE COURSE CF A RUN. 


BSRNCUT -- THE BURNCLT OF AN OBJECT. 

HEATIG == IGNITION CF AN OBJECT BY HEATING. 

CNTCIG -- IGNITION CF AK OBJECT BY CONTACT WITh THE FLAMES CF ANOTHER 
CBJECT. 


STRTUP == THE START OF A RUN. 
INTEGER BRACUT/HEATIG/-CNTCIGs/STRTUP 


PARAMETER (BRNCLT = 1, KEATIG = 2 CNTCIG = 3, STRTUP = 4) 
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FILE IC.INC 


THIS FILE CONTAINS THE CHANNEL NUMBERS FCR INPLT AAC OUTPUT TO 
THE CISK ANC TC THE TERMINAL SCREEN. 


IwTTY ~~ CRANNEL NUMBER FOR WRITES TO THE TERMINAL SCREEN. 
IRTTY -- CRANNEL NUMBER FOR READS FROM THE TERMINAL SCREEN. 
IwCOSK -- CRANNEL NUMBER FOR WRITES TO THE CISK FILE FIRE.DAT. 


INTEGER IWTTY/IRTTY-IWOSK 


PARAMETER CIWTTY = €% IRTTY = 54 IwCSK = 15) 
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